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