The comment in the code slightly above says:
this doesn't work in perl 5.6.2! grrrr
So this code is at least 20 years old, and probably pre-2000.