Select Code to Download

#!/usr/bin/perl

...
print $template->output;
__DATA__
# original template here

$template->param(files=>[qw (/etc/passwd /var/log/httpd/access_log) ])
+;

...
<TMPL_MAP name=files>
<TD><TMPL_MAPVAR></TD>
</TMPL_MAP>