sub dbi_test {
use DBI;

print "hey";

my $dbh_r = DBI->connect('DBI:mysql:mydb_name:host=pctwo') or print "Couldn't connect to database: " . DBI->errstr;
print "hi";
}