BEGIN {
    $0 =~ m~(.*)/[^/]+~ || $0 =~ m~(.*)\\[^\\]+~;    
    unshift @INC, $1;
}