use DBI;

$ENV{ORACLE_HOME}     = '/common/oracle/product/v8.1.6';
$ENV{LD_LIBRARY_PATH} = "$ENV{ORACLE_HOME}/lib";
$ENV{TNS_ADMIN}       = '/common/oracle/env';

$dbh = DBI->connect('','scmuser/scmuser@itopstst','','Oracle');
die $DBI::errstr unless defined $dbh;

##</code><code>##

install_driver(Oracle) failed: Can't load '/app/eol/perl/lib/site_perl/5.005/sun4-solaris/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle: ld.so.1: /app/eol/perl/bin/perl: fatal: libclntsh.so.8.0: open failed: No such file or directory at /app/eol/perl/lib/5.00503/sun4-solaris/DynaLoader.pm line 169.

 at (eval 1) line 3

 at ./tst line 15

##</code><code>##

BEGIN {
  $ENV{ORACLE_HOME}     = '/common/oracle/product/v8.1.6';
  $ENV{LD_LIBRARY_PATH} = "$ENV{ORACLE_HOME}/lib";
  $ENV{TNS_ADMIN}       = '/common/oracle/env';
}

use DBI;

$dbh = DBI->connect('','scmuser/scmuser@itopstst','','Oracle');
die $DBI::errstr unless defined $dbh;