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

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