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;