#!/usr/bin/perl -w

use DBI;

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

## mysql user database name
$db ="xxxxx";
$tablename = "xxxx";
## mysql database user name
$user = "xxx";

## mysql database password
$pass = "xxxxx";

## user hostname : This should be "localhost" but it can be diffrent too
$host="localhost";

## SQL query
$query = "SELECT * FROM $tablename";

$dbh = DBI->connect("DBI:mysql:$db:$host:$tablename", $user, $pass);
$sqlQuery  = $dbh->prepare($query)
or die "Can't prepare $query: $dbh->errstr\n";

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



print "
<h3>********** My Perl DBI Test ***************</h3>

";
print "

Here is a list of tables in the MySQL database $db.

";
while (@row= $sqlQuery->fetchrow_array()) {
my $tables = $row[0];
print "$tables\n<br>";
#print "$tablename\n<br>";
}

$rc = $sqlQuery->finish;
exit(0);