use strict;
use warnings;
use DBI;

# . /opt/CA/WorkloadAutomationAE/autouser.DEV/autosys.sh.`hostname`

# TNS_ADMIN = "/usr/oracle/product/11.2.0.4/network/admin";
my $driver = "Oracle";
my $database = "ASYSDEV2";
my $dsn = "DBI:$driver:database=$database";
my $userid = "autosysr";
my $password = "A13sm_sd";

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