my $html_page = new CGI;

##</code><code>##

print "<TABLE>\n";

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

##</code><code>##


print $html_page->table(
while ......      {
$html_page->Tr(
   $html_page->td($db_data)
   )
}
);