Help for this page
#!/usr/bin/perl -w use strict ; ... print TR (td ([@cols])), "\n" ; } print end_table, end_html ;