#!/usr/bin/perl
use warnings;
use strict;
use DBI;

my $ORACLE_HOME = "/u01/app/oracle/product/10.2.0.4";
my $ORACLE_SID="qaecom1";
my $USER="user";
my $PASS="password";

$ENV{ORACLE_HOME}=$ORACLE_HOME;
$ENV{ORACLE_SID}=$ORACLE_SID;
$ENV{PATH}="$ORACLE_HOME/bin";
$ENV{LD_LIBRARY_PATH}="$ORACLE_HOME/lib";


use strict;
use DBI;
my $dbh = DBI->connect( 'dbi:Oracle:qaecom1',
                        '$USER',
                        '$PASS',
                      ) || die "Database connection not made: $DBI::errstr";
$dbh->disconnect;