use DBI;



my $db_name = 'host=10.80.1.3;port=1521;sid=AEDB011A';
my $db_user = 'AGS521DEV';
my $db_pass = 'AGS521DEV';
my @dbi_path = ("dbi:Oracle:$db_name",$db_user,$db_pass);
my $oracle = DBI->connect(  @dbi_path,
                    {
                        PrintError => 0,
                        RaiseError => 0,
                        AutoCommit => 0,
                    }
                )
        or die "Database connect to $db_name failed:" . $DBI::errstr;