$dbiConn = DBI->connect( "dbi:Oracle:$ORACLE_SID" , "$ORACLE_USER" ,
                            "$ORACLE_PASS" )  ||
                 die "Connection failure.\n$!\n$DBI::errstr\n$ORACLE_SID, $ORACLE_USER, $ORACLE_PASS";

##</code><code>##

$dbhVar = $dbh;
my $qryDbi = $dbiVar->prepare("some query");