Select Code to Download

$sth = $dbh->prepare( 'SELECT * FROM guestbook' );
$sth->execute;
...
my $template = HTML::Template->new(filename => 'table.tmpl');
$template->param(TABLE_LOOP => \@ht_data);
print $template->output();

<table class="user_form">
  <TMPL_LOOP NAME=TABLE_LOOP>
...
    </tr>
  </TMPL_LOOP>
</table>