Select Code to Download

# prepare the SQL
my $sth = $dbh->prepare('select * from table');
...
while (my @row = $sth->fetch_array()) {
   print join(',', @row), "\n";
}

my $res = $dbh->selectall_arrayref('select * from table');

...
   print "\t</tr>\n";
}
print "</table>\n";

use DBIx::XHTML_Table;

...

$table->exec_query('select * from table');
print $table->output();

print DBIx::XHTML_Table
   ->new('DBI:mysql:database:host', 'user', 'pass')
   ->exec_query('select * from table')
   ->output();