#!/usr/local/bin/perl -W

use strict;
use DBI;

$ENV{ORACLE_HOME}     = '/u01/app/oracle/product/9.2.0';
$ENV{LD_LIBRARY_PATH} = "$ENV{ORACLE_HOME}/lib";
$ENV{TNS_ADMIN}       = '/var/opt/oracle';

my $dbh = DBI->connect( 'dbi:Oracle:eldorado', 'C6037', 'C6037',
                        { RaiseError => 1, AutoCommit => 0 } );

print $dbh->selectrow_array(qq{ SELECT 'Hello World'  FROM DUAL } );

$dbh->disconnect();