Select Code to Download

<table>
<tmpl_loop name=TABLE>
...
        </tr>
</tmpl_loop>
</table>

use HTML::Template;

...
$t->param(TABLE => $table);

print $t->output;