#!perl
print "Content-type: text/plain\n\r\n\r";
print "Hello. This is a test file to see if DBI is working.\n";
use DBI;

my $driver = "mysql";
my $hostname = "localhost";
my $database = "mysql";
my $port = "3306";
my $user = "root";
my $password = "";
my $dsn = "dbi:$driver:database=$database;host=$hostname;port=$port";


my $dbh = DBI->connect($dsn, $user, $password);
if (!$dbh)
{
    print "Error connecting: ".$DBI::errstr;
    exit;
}
	
my $query = "show tables";
print "query=$query\n";
	
my $result = $dbh->selectall_hashref($query) or print $dbh->errstr;
	
print "results:\n";
foreach my $row (@$result)
{
    foreach my $f (keys %{$row})
    {
        print "$f=$$row{$f}\t";
    }
    print "\n";
}