#!/usr/local/bin/perl
###########################################################################
#
# mysql_connect.pl
#
# uses the perl DBI module
#
# replace <database name> <user name> and <password> with the correct values
#
###########################################################################

#
# set output to unbuffered and print the correct content-type
#
$|=1;
print "Content-Type: text/html\n\n";

#
# we need to use the DBI module
#
use DBI;

#
# replace <database name> <user name> and <password> with the correct values
# set up the variables to connect to the database
#
$user='<user name>';
$passwd='<password>';
$dbname='<database name>';
$dsn = "DBI:mysql:$dbname";

#
# this establishes the connection to the database and lets us know if it worked
#
print "Attempting to connect to the database...<BR>";
$dbh = DBI->connect($dsn, $user, $passwd);
if ( !defined $dbh) {
   print "Fatal Error!<BR>Could not connect to database.<BR>";
   print "Database: $dbname<BR>";
   print "User: $user<BR><HR>";
   exit 1;
} else {
   print "Successful connection to database: <B>$dsn</B><BR>\n";
}

#
# generate our SQL commmand
# any SQL command can go here (select, create, alter, etc)
# replace <table> with correct value
#
$command ="select * from <table>";
print "Command: $command<p>\n";

#
# create a statement handle and prepare to execute the SQL statement
#
$sth = $dbh->prepare($command);
if ( !defined $sth ) {
   print "Can't create Statement Handle Object $dbh->errstr<BR>\n";
   exit 1;
}

#
# execute the command
#
$rv = $sth->execute;
print "Return Code: <B>$rv</B>".$dbh->errstr." <BR><HR>\n";

exit;