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