sub BEGIN { unshift @INC, qw(d:\\mydir\\mylibs); }