$dbh = DBI->connect ($dsn, $user, $password, {PrintError =>1,RaiseError =>1})