sub BEGIN { unshift @INC, 'c:/Perl64/site/lib'; unshift @INC, 'c:/.....'; # what ever you needed }