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