my $dbh = DBI->connect($dsn, $user, $pass,  { RaiseError => 1, AutoCommit => 1 })
or die 'Connexion a la base impossible: ' . DBI->errstr;

##</code><code>##

DBI connect('XX','xx',...) failed: ERROR OCIEnvInit at xx_dbfunc.pm line 36