# html-table style
print "<table>\n";
foreach my $row (@$res) {
   print "\t<tr>\n";
   print map { "\t\t<td>$_</td>\n" } @$row;
   print "\t</tr>\n";
}
print "</table>\n";


##</code><code>##

use CGI qw(:standard *table);
use CGI::Pretty; # For pretty-printed HTML

print start_table;
print Tr(td($_)) foreach @$rows;
print end_table;