Select Code to Download

use Text::Table;
my $tb = Text::Table->new(
...
        [ "Jupiter", 71030, 1.3 ],
);
print $tb;

use Spreadsheet::HTML qw( generate );

...
        [ "Jupiter", 71030, 1.3 ],
);
print generate( data => \@data );