Help for this page
print $q->td(['one', '1', 'I']);
<TD>one</TD> <TD>1</TD> <TD>I</TD>
<TD COLSPAN="2">...</TD>
$q->td([ 'two' ]), $q->td({-colspan=>'2'}, [ '2' ]),