Select Code to Download

sub get_table {
   my $max = $_[0] - 1;
...
   }
   return @table;
}

use Text::Table;

...
my $text_table = Text::Table->new(1..$max);
$text_table->load(@table);
print $text_table->body;

use DBIx::XHTML_Table;

...
   ->new([get_table($max)],[])
   ->output({no_head=>1})
;