#!/usr/bin/perl -w

BEGIN {
    $ENV{ORACLE_BASE} = '/usr/local/share/oracle';
    $ENV{ORACLE_HOME} = "$ENV{ORACLE_BASE}/815client";
    $ENV{LD_LIBRARY_PATH} = "$ENV{ORACLE_HOME}/lib";
    $ENV{TNS_ADMIN} = "$ENV{ORACLE_HOME}/network/admin";
}

use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use DBI;
use DBD::Oracle;
use Data::Dumper;
.
.
.
print "path = $ENV{LD_LIBRARY_PATH} \n";
my $dbh = DBI->connect("dbi:Oracle:database=XYZDEV01", 'user', 'pass') || die  $DBI::errstr;
.
.
.