use strict;
use warnings;
use DBD::Oracle;
use DBI;

my $dbh = DBI->connect("dbi:Oracle://$host:1522:$db",$dbUser, $dbPass) or die;