Then wrap it in a BEGIN block.
Same issue BEGIN{($_ = $0) =~ s[[\\/][^\\/]+$][]; use lib $_;}
In reply to Re^4: @INC from $0 by Anonymous Monk in thread @INC from $0 by der