#!/usr/local/bin/perl

BEGIN {
        $ENV{ORACLE_HOME} = '/app/oracle/product/9.0.1';
        $ENV{TWO_TASK}    = 'P:mydb';
}

use DBI;

$dbh = DBI->connect('dbi:Oracle:', 'user', 'pass') || die $!;
$dbh->do("select 1 from dual");
$dbh->disconnect;

##</code><code>##

Installed Oracle Net Tranport Protocols are:

    IPC
    TCP/IP
    BEQueath
    SSL
    RAW