Select Code to Download

#!/usr/local/bin/perl

...
    header,
    table({-width=>200},
            [join '', (map Tr(map td($_), @$_), @data)]);

#!/usr/local/bin/perl

...
           -border=>1},
            [Tr([map (td([map $_, @$_]), @data)])]);