Select Code to Download

use CGI::Pretty qw(:standard);
print table({border=>1, cellspacing=>2, cellpadding=>2},
...
    td({colspan=>2}, 'three').td('III'),
    td({colspan=>3}, 'four'),
]));