sub do_some_stuff { $debug .= qq(
SUB: do_some_stuff
); my $abc = qq(The foo bar boogie); (my $xyz = $abc) =~ s!foo!bar!; $xyz = &do_something_else($xyz); #pretend &do_some_other_stuff is basically the same as &do_some_stuff $debug .= qq(XYZ: $xyz); $debug .= qq(
ENDSUB: do_some_stuff
); return($xyz); } my $output = $template->output; $output .= qq(--Debug Info--
$debug
); return($output);