Help for this page
#!/usr/bin/perl -w use strict; ... th({-width=>"60%"}, "Line"); print table(Tr(\@table_rows));
<table> <tr> ... </tr> </table>