/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