The error messages match up a little better with the code now, and without having tested it I've got a suspicion: It may be a Perl version before v5.10 which does not support the // defined-or operator. If that's the case it would have to be replaced by equivalent logic using defined. See also perlver.

BTW, please mark your updates in the original node a little more clearly, see here for why.