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