#!/usr/bin/perl

use DBI;
use strict;

my $dbh;
my $db='survey';
my $host='localhost';
my $user='root';
my $pw='whatever';

$dbh = DBI->connect("DBI:mysql:$db", $user, $pw) or die "Database connection not made: $DBI::errstr";

print "Woo Hoo! I connected!\n";

exit;