use DBIx::XHTML_Table;

my $table = DBIx::XHTML_Table->new(
  'DBI:mysql:database:host', 'user', 'pass')
) || die;

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