Select Code to Download

our $print = sub { print shift };
sub table (&) { $print->("<table>\n"); shift->(); $print->("</table>\n
+"); }
...
table { row { cell "foo" } };

$html .= "</body></html>";

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

$html .= "</body></html>";