use strict;
use warnings;

use DBI;
use DBIx::XHTML_Table;
use CGI qw(:standard);

my $dbh = DBI->connect(
        qw(DBI:mysql:database_X:host user pass),
        {RaiseError=>1}
);
my $table = $dbh->table_info(TABLE_TYPE => 'TABLE');

print header,start_html('database_X tables');

while (my $info = $table->fetchrow_hashref) {
   print DBIx::XHTML_Table
      ->new($dbh)
      ->exec_query("SELECT * FROM $info->{TABLE_NAME}")
      ->modify(caption => $info->{TABLE_NAME})
      ->modify(table => {border => 1})
      ->output
   ;

}

print end_html;
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)