use CGI qw(:standard);
print table(Tr([ map td([ qw/foo bar baz/]), 1..10 ]));

print table(Tr([ map td($_), $db->query('SELECT * FROM foo')->arrays ]));