Select Code to Download

# html-table style
print "<table>\n";
...
}
print "</table>\n";

use CGI qw(:standard *table);
use CGI::Pretty; # For pretty-printed HTML
...
print start_table;
print Tr(td($_)) foreach @$rows;
print end_table;