<& lib.mas &>
% $m->call_next;

<%perl>

sub printv {
        my $key = shift;
        return $key;
}

sub dateTime {
        my $i;
        my %result;
        my @datetime = localtime(time);

        $datetime[5] += 1900;
        $datetime[4] += 1;

        for ($i=0; $i < 5; $i++){
                $datetime[$i] = sprintf("%02d",$datetime[$i]);
        }
        my $dateString =        $datetime[5] . "-" . $datetime[4]. "-" . $datetime[3] . " " .
                                        $datetime[2] . ":" . $datetime[1] . ":" . $datetime[0];
        $result{'asString'} = $dateString;
        $result{'asTimestamp'} = time;
        return %result;
}

</%perl>

%print "eins <br>";
<% printv "zwei" %>
%print "drei <br>";
%my %res = dateTime;
%print $res{'asString'};

String found where operator expected

[Tue Jun 10 09:41:24 2008] [warn] Init: Session Cache is not configured [hint: SSLSessionCache]

Undefined subroutine &HTML::Mason::Commands::printv 

		#error_mode => 'fatal', # Output to serverlog
		error_mode => 'output',
		#
		#This may be brief , text , line , or html .
		#These produce an error message with no trace,
		#a multiline error with trace information,
		#a single-line error with tab-separated fields (suitable for writing to a log),
		#and a fancy HTML format.
		error_format => 'html',
		#error_format => 'line',