Both of you try this.
Find:
($0 =~ m!(.*)(\|/)[^/\]+!) && unshift(@INC, $1, "$1$2Modules");
use lib("./Modules", "."); # in the event $0 is not set
and replace with:
BEGIN {
($0 =~ m!(.*)(\|/)[^/\]+!) && unshift(@INC, $1, "$1$2Modules");
use lib("./Modules", "."); # in the event $0 is not set
}
LMK how this goes.
FYI, using UBBCGI is better; it's faster
qasic