Select Code to Download

#!/usr/bin/perl -w

...
print $template->output;
__DATA__
<nothing-|-bob>bob

#!/usr/bin/perl -w

...

my $template = HTML::Template->new(filename => $f_name,debug=>1);
print Dumper($template);

#!/usr/bin/perl -w

...

joe failed
jim failed