Err, copy/paste error! use lib 'e2'; use lib 'e1'; print join "\n", at INC; e1 e2 use lib 'e1'; use lib 'e2'; print join "\n", at INC; e2 e1 C:/aPerl/site/lib C:/aPerl/lib