#!/usr/bin/env perl
print "Content-type: text/html\n\n";

use strict;
use warnings;
use DBI;

my ($db_user, $db_name, $db_pass) = ("123456m12345_1", "123456m12345_1", "PaSsWoRt97531SuPeRgEhEiM");

my $dbh = DBI->connect("DBI:mysql:database=$db_name", $db_user, $db_pass) or die $DBI::errstr;

print "<h1>MySQL show tables:</h1>";

my $dump = $dbh->table_info;

print DBI::dump_results($dump);

$dbh->disconnect();