print "<TABLE>\n";

while (my $db_data = $sth->fetchrow_arrayref()) {
print $html_page->Tr(
  $html_page->td($db_data)
  );
}
print "</TABLE>\n";