my $dbh = DBI->connect($dsn, $user, $password)
  or die "Couldn't connect to database: " . DBI->errstr;

##</code><code>##

my $dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1, PrintError => 0 })
  or die "Couldn't connect to database: " . DBI->errstr;