Select Code to Download

        sub print_row {
            print"<TR>";
            print"<TD>$_</TD>" for @_;
            print"</TR>\n";
        }

print TR( td( \@_ ) );

my @rows;
for ( blah blah ) {
...
    push( @rows, TR( td( \@_ ) );
}
print table( @rows );