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);