#!/usr/bin/perl

use DBI;
use DBD::mysql;

print q(Content-Type: text/html; charset=ISO-8859-1

);
print "DBI Version=" . $DBI::VERSION;
print "<BR>DBD Version=" . $DBD::mysql::VERSION;

$dbh = DBI->connect("DBI:mysql:<DATABASE NAME>:localhost","<USERNAME>","<PASSWORD>")
 or print "<BR>Couldn't connect to database: " . DBI->errstr;

$query=q{select user()};

$sth = $dbh->prepare($query);
$sth->execute();
my $user_info;
$sth->bind_columns(\$user_info);
$sth->fetch();
print "<BR> User connected to MySql: $user_info";