BEGIN {
    my $prahome = "/u01/oracle/product/10.2.0/client_1";
    my $oralib  = "$orahome/lib";
    unless ($ENV{LD_LIBRARY_PATH} =~ /\Q$oralib/) {  # avoid endless loop
        $ENV{ORACLE_HOME}     = $orahome;
        $ENV{LD_LIBRARY_PATH} = $oralib;
        $ENV{PATH} = "/bin:/usr/bin:$orahome/bin:/home/appowner/bin:."; 
        exec $0, @ARGV;
    }
}