#!/app/eol/perl/bin/perl -- # -*-Perl-*-

BEGIN {
  unless ($ENV{BEGIN_BLOCK_DONE}) {
    $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_DONE} = 1;
    exec $0 @ARGV;
  }
}

use DBI;

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