my $dbh = DBI->connect("dbi:Oracle:DB", "user", "pwd", {PrintError => 0}) || die("Unable to connect to DB. Error was: $DBI->errstr\n");