BEGIN {
    $ENV{ORACLE_SID} = 'db2';
}

use DBI;

my $dbh = DBI->connect( .. );