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