Select Code to Download

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

# note that passing an array reference to Tr() creates a set of <TR> b
+locks, one per element of the referenced array
print table( Tr( [ map { td( $_ ) } @$db_results ] ) );

# need '*table' and '*Tr' in order to use start_table() and start_Tr()
use CGI qw( :standard *table *Tr );

...
                  (map { map { td($_) } @$_ } @$db_results),
                  end_Tr,
                  end_table ), "\n";