#!/usr/bin/perl
BEGIN {
    unless ($ENV{DONE_RESTARTING_MYSELF}) {  # avoid endless loop...
        $ENV{DONE_RESTARTING_MYSELF} = 1;
        $ENV{ORACLE_HOME}     = "/opt/oracle/product/10.2.0/client_1";
        $ENV{LD_LIBRARY_PATH} = "/opt/oracle/product/10.2.0/client_1/lib32:/usr/local/lib/sprolib:/usr/local/lib:/usr/lib:/usr/openwin/lib:/usr/dt/lib:/usr/lib:/usr/ucblib";

        exec $0, @ARGV;    # <---
    }
}
use DBI;
# ...