# START OF CODE SEGMENT
# Test script to connect to Database.
#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect('DBI:mysql:test:testscript', 'tester', 'tester')
                or die "Couldn't connect to database: " . DBI->errstr;

my $sth = $dbh->prepare('SELECT * FROM product_releases')
                or die "Couldn't prepare statement: " . $dbh->errstr;

print "\n$sth\n";

$dbh->disconnect;