my $dsn = "dbi:Oracle:DWAPRD";
my @connection = ($dsn, $user, $pass);
my $dbh = DBI->connect_cached(@connection) or die "Couldn't connect to database: " . DBI->errstr;