($_ = $0) =~ s[[\\/][^\\/]+$][]; use lib $_;