use DBI;
my $dbh = DBI->connect(["dbi:Oracle:ppp","pp1","pp2"]);
$dbh->disconnect;
print "Database connect success\n";