$sth->execute($login, $passwd) or die $dbh->errstr;

##</code><code>##

$dbh = DBI->connect($data_source, $user, $password) or die $DBI::errstr;

##</code><code>##

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