$dbh = DBI->connect(
   'dbi:Oracle:tnsname',
   'userid',
   'password',
   {RaiseError => 1}
);

##</code><code>##

$sth->execute(@args) || die $sth->errstr();