<%cleanup> print "Cleanup"; <%init> print "Init"; #This is an alias to $m->out(); <%filter> print "Filter"; <%perl> print "Perl"; <%once> print "Once"; #### <%perl> my $session=$m->comp('/mason/session/session.mas'); $m->call_next(session=>$session); $m->comp('/mason/session/session.mas', action=>'save', session=>$session);