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

##</code><code>##

Error i am getting is
Can't connect to data source ARRAY(0x4001396c), no database driver specified and DBI_DSN env var not set at - line 2