BEGIN {
  unless ($ENV{BEGIN_BLOCK}) {
    $ENV{ORACLE_HOME}     = '/common/oracle/product/v8.1.6';
    $ENV{LD_LIBRARY_PATH} = "$ENV{ORACLE_HOME}/lib";
    $ENV{TNS_ADMIN}       = '/common/oracle/env';
    $ENV{BEGIN_BLOCK} = 1;
    exec 'env',$0,@ARGV;
  }
}

use DBI;

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