Select Code to Download

  my $dbh =DBI->connect(
        "dbi:$dbidriver(RaiseError=>1,Taint=>1):dbname=$dbname;host=$d
+bhost", "$dbusername", "$dbpassword", );
...
    $template->param( {%stuff} );
#print out
    print $template->output;

<table>
<tr><td>name</td></tr>
...

</tmpl_loop>