Thanks for the suggestion

The below code worked fine for me !

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
#use DBD::ODBC;

my @row;

my $user = 'XXXX';
my $password = 'XXX';
my $dbh = DBI->connect("dbi:Oracle:host=XXX;sid=XXX", $user, $password
+);
[download]

Thanks :)