$dbh = DBI->connect("DBI:$dbm:$db:$server", $user, $pwd) 
	&& die ("Unable to connect to database $db: $DBI::errstr\n");