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;