The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%perl>
$m->print('part2');
</%perl>
<%args>
$foo => 1
$bar
</%args>
hey there
% my $x = 1;
<%perl>
$m->print($x++) while $x < 100;
</%perl>

<%def .foo>
lalalalalala
</%def>

<%method foo>
foobar
</%method>