Select Code to Download

my @ar = ();
while (my $hr = $sth->fetchrow_hashref() ) {
...
}
$s->ar = \@ar;
$s->rows = @ar;

$s->ar   = $sth->fetchall_arrayref({});
$s->rows = @{$s->ar};

# Assume $sth is a valid statement handle
my $params   = $sth->fetchall_arrayref({});
...

$template->param(TABLENAME => $params);
print $template->output();

<TABLE>
<TMPL_LOOP NAME=TABLENAME>
  <TR><TD><TMPL_VAR NAME=COLUMN1></TD><TD><TMPL_VAR NAME=COLUMN2></TD>
+</TR>
</TMPL_LOOP>
</TABLE>