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