The previous code was extracted from the PubUtils module. I did not want not want to post the actual module for two reasons: a) the author did not include any perldoc information indicating redistribution b) it is relatively long.
I am going to see if I can contact the author for permission to post it.