#!/usr/bin/perl

use strict;
use DBI();

# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost",
					 "joe", "joe's password",
					 {'RaiseError' => 1});