my $dbh = DBI->connect( 
  "dbi:Oracle:host=$host;port=$port;sid=$sid",
  $user, $passwd, {RaiseError => 1}
);