#!C:\Program Files\xampp\perl\bin\perl.exe

use strict;
use DBI;

print "Content-Type: text/html;\r\n";
print "\r\n";

my $dbh = DBI->connect('DBI:mysql:mysql:localhost;', 'root', '');

my $sth = $dbh->prepare("SHOW TABLES");

$sth->execute;

while (my @array = $sth->fetchrow_array) {
	my ($table) = @array;

	print "$table\n";
}

exit;