Select Code to Download

use Data::Table;
use strict;
...

my $table = Data::Table->new(\@data, \@headers, 0);
print $table->html;

use Data::Table;
use strict;
...
                                 "select * from mytable where blah = ?
+",
                                 ["blah"]);
print $table->html;