Sorry if this code has a typo. I could swear it was in decent shape. Regardless, this is actually the verion 1.0 of the script. It now lives here and is on version 4.3Devel and 4.0.1Stable, so it probably best to not use the version on perlmonks anyway.

-c