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