Select Code to Download

print table(map tr(map td($_), qw/foo bar baz/), 1..10)

sub table (&) { print "<table>\n"; shift->(); print "</table>\n"; }
sub row (&) { print "<tr>"; shift->(); print "</tr>\n"; }
...
};

table { row { cell @$_ } for $db->query('SELECT * FROM foo')->arrays }
+;