Re^5: @INC from $0

[Anonymous Monk]

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