use DBI;

my $dbh = DBI->connect ("dbi:Oracle:", $user, $pass, { RaiseError => 1, PrintError => 1});