#!/usr/bin/perl -wT
print "Content-type: text/html \n\n";
use DBI;
# Connect To Database
$database = "a_qtest";
$username = "a_read";
$password = "password";
$hostname = "localhost";

$db = DBI->connect("DBI:mysql:$database:$hostname", $username, $password);

if(!$db = DBI->connect("DBI:mysql:$database:$hostname", $username, $password))
     print "Connection unsuccessful. Please check your login credentials. ".$DBI::errstr;

# Execute a Query

$query = $db->prepare("SELECT * FROM mytable");
$query->execute;
# How many rows in result?
$numrows = $query->rows;
# Display Results
while (@array = $query->fetchrow_array) {
($field1, $field2, $field3) = @array;
print "field1 = $field1, field2 = $field2, field3 = $field3 
";
}
# Cleaning Up
$query->finish;
$db->disconnect;
exit(0);