# Change this
           flock(FH, LOCK_EX) || die "Error in flock: $!";

           # Into this (untested, no Win98 machine handy)
           eval { 
                flock(FH, LOCK_EX) 
                      || die "Error in flock: $!";
           };
           die unless ($@ =~ /unimplemented/);