Help for this page
#!/usr/bin/perl ... } print "</table>\n";
<table> <tr><td>1</td> ... <td> </td> <td> </td></tr> </table>