print "<table>\n";
foreach my $row (@$db_results) {
   print "\t<tr>\n";
   foreach my $col (@$row) {
      print "\t\t<td>$col</td>\n";
   }
   print "\t</tr>\n";
}
print "</table>\n";