My JAPH from a while back doesn't work in recent perls... but that's not surprising based on what it uses for it's source data :)