columns_priv
db
func
help_category
help_keyword
help_relation
help_topic
host
tables_priv
time_zone
time_zone_leap_second
time_zone_name
time_zone_transition
time_zone_transition_type
user

Code:

#!/usr/bin/perl -w

use DBI;

print "Content-type: text/html\n\n";

$db="mysql";
$host="mysql";
$user="XXXXXX";
$pass="XXXXXXXXX";
$query = "show tables";

$dbh = DBI->connect("DBI:mysql:$db:$host", $user, $pass);

$sth = $dbh->prepare($query)
    or die "Can't prepare $query: $dbh->errstr\n";

$rv = $sth->execute
    or die "can't execute the query: $sth->errstr";

while(@row = $sth->fetchrow_array) {
    $mydat = join " | ", @row;
    print "$mydat";
}

$rc = $sth->finish;

exit(0);