$dbh=DBI->connect("dbi:Oracle:$xmlArray[$flagArray[$outerCounter]][0]","$xmlArray[$flagArray[$outerCounter]][1]","$xmlArray[$flagArray[$outerCounter]][2]",{AutoCommit=>0}) or die "Can't log in: $!"
 open FILE, "<defaultOutput.sql";
           my $file_contents = do { local $/; <FILE> };
printf "\nFinal sql :: %s \n",$file_contents ;
$sth=$dbh->prepare($file_contents) or die "$DBI::errstr";
$sth->execute or die "Can't execute sth: $DBI::errstr.";
while (($mycolumn)=$sth->fetchrow_array)
{   
  print "\n$mycolumn\n" if defined $mycolumn;
}