Select Code to Download

#!/usr/local/bin/perl -w

...
       $q->td({-colspan=>'3'}, ['four']),
    ]));
}

<TABLE CELLPADDING="2" CELLSPACING="2" BORDER="1">
        <TR VALIGN="CENTER" ALIGN="LEFT">
...
                </TD>
        </TR>
</TABLE>