Select Code to Download

#!/usr/bin/perl -w

use strict;
...
$template->param(scores => \@scores);

print $template->output;

<table>
<TMPL_LOOP NAME='scores'>
...

</TMPL_LOOP>
</table>