#!/usr/bin/perl

use lib '/home/install/perl'; 

BEGIN {
    # Setup Environment for Oracle - has to happen *before* DBD::Oracle is loaded,
    # and because DBI loads DBD::Oracle during its startup, this has to happen
    # before the first "use DBI".
    $ENV{'ORACLE_HOME'}="/home/root/home/xyzco/oracle/oracle/product/12.1.0/dbHome_1";
    $ENV{'LD_LIBRARY_PATH'}="/home/root/home/xyzco/oracle/oracle/product/12.1.0/dbHome_1/lib:/lib:/usr/lib";
}

use DBI;

print $ENV{'LD_LIBRARY_PATH'};

$dbh = DBI->connect("dbi:Oracle:host=127.0.0.1;sid=V1011679;port=1521", "user", "password", { AutoCommit => 1});