Select Code to Download

BEGIN {
    my $prahome = "/u01/oracle/product/10.2.0/client_1";
...
        exec $0, @ARGV;
    }
}