#!/usr/bin/perl -w

use DBI;

print "Content/type: test/plain\n\n";

my $dsn = "DBI:mysql:test";
my $db_user = "fakename";
my $db_pass = "fakepass";

# Connect to the database:
my $dbh = DBI->connect ($dsn, $db_user, $db_pass)
        or die "Couldn't connect to MySQL!";