#!/usr/perl5/5.8.4/bin/perl -w

BEGIN
{
use lib "Your DBD Oracle module installation path";
use DBI;
use DBD::Oracle;
$ENV{"ORACLE_HOME"} ='/local/src/local.perl/oracle/instantclient_10 +_2';
}
my $host = "bo.boo.com";
my $sid = "AAAA";
my $user = 'secret';
my $passwd = 'evenmoresecret';

my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $passwd) || print ("database connection not made");

$dbh->disconnect;</p>