Select Code to Download

#!/usr/local/bin/perl

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

Installed Oracle Net Tranport Protocols are:

    IPC
...
    BEQueath
    SSL
    RAW