Test Perl DBI Module

this script tests the perl dbi module#!/usr/local/bin/perl

use DBI;

print "Content-type:text/html\n\n";
#if printing to web
#you dont need the port number if its the default

$db_handle = DBI->connect("dbi:mysql:database=mysql;host=localhost:3306;user=user;password=whatever")
or die "Couldn't connect to database: $DBI::errstr\n";

$sql = "SELECT * FROM user";
$statement = $db_handle->prepare($sql)
or die "Couldn't prepare query '$sql': $DBI::errstr\n";

$statement->execute()
or die "Couldn't execute query '$sql': $DBI::errstr\n";
while ($row_ref = $statement->fetchrow_hashref())
{
print "User <b>$row_ref-></b> has privileges on <b>$row_ref-></b>.<br>\n";
}

$db_handle->disconnect();