$dbh = DBI->connect("DBI:...", $user, $passwd) or print "
Error connecting to database: " . $dbh->errstr . "