use CGI qw(:standard);

my @headers = ( th('a'),th('b'),th('b'), );
my @row    = ( td('1'),td('2'),td('3'), );

print table(
    thead( Tr( @headers ) ),
    tbody( Tr( @row ) ),
);