Select Code to Download

<table>
  <tmpl_loop name="row">
...
  </tmpl_loop>
</table>

my $sth = $dbh->prepare(qq/ SELECT * FROM table /);
$sth->execute;
...

$sth->finish;