#!/usr/bin/perl

BEGIN {
    my $orahome = "/path/to/orahome";
    my $oralib  = "$orahome/lib";
    unless ($ENV{LD_LIBRARY_PATH} =~ /$oralib/) {
        $ENV{ORACLE_HOME}     = $orahome;
        $ENV{LD_LIBRARY_PATH} = $oralib;
        exec $0, @ARGV;
    }
}
use DBD::Oracle;