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