Select Code to Download

<%cleanup>
print "Cleanup";
...
<%once>
print "Once";
</%once>

<%perl>
my $session=$m->comp('/mason/session/session.mas');
...

$m->comp('/mason/session/session.mas', action=>'save', session=>$sessi
+on);
</%perl>