#! /usr/local/bin/perl

# $Revision: 1.2 $

use DBI;
use DBD::mysql;

$| = 1;

print("Content-Type: text/plain\n\n");

my( $dbh, $rv, $sth );

eval {
	$dbh = DBI->connect("DBI:mysql:test_nile", "memyself", "");
};

if ($@) {
	die "Could not install driver ($DBI::err): $DBI::errstr\n";
}

if (!defined($dbh)) {
	die "Could not connect to db ($DBI::err): $DBI::errstr\n";
}

$sth = $dbh->prepare(q{SELECT * FROM title});
$sth->execute || die "Select *: ", $dbh->errstr, "\n";

DBI::dump_results($sth, 100);

$sth->finish;
$dbh->disconnect;

exit 0;