#!/usr/bin/perl

use DBI;
use strict;

#
# ( my $sec,my $min,my $hr,my $mday,my $mon,my $year) = localtime(time);
#$mon++;
#$year += 1900;

my $driver = "Oracle"; 
my $database = "XXXXX";
my $userid = "XXXXXX";
my $hostname = "10.94.XX.XX";
my $port = "XXX";
my $password = "XXXXXXX";
my $dsn = "DBI:$driver:database=$database:Hostname=$hostname:Port=$port";




my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;

$dbh->{LongReadLen} = 65535; 
$dbh->{PrintError} = 0;  

print "COnnection successful....\n";