$0 =~ m,(.*?)[^/\\]+$, and unshift @INC, $1;