/eg/lib #### /eg/custom /eg/lib #### /corporate/lib /eg/custom /eg/lib #### my @incs = map { "-I$_" } @INC; system($^X, @incs, 'other-script.pl'); #### /corporate/lib /eg/custom /eg/lib
## /eg/custom /eg/lib ##
## /corporate/lib /eg/custom /eg/lib ##
## my @incs = map { "-I$_" } @INC; system($^X, @incs, 'other-script.pl'); ##
## /corporate/lib /eg/custom /eg/lib