I do not know of one, but this link has very well documented java code for doing just that. It should be relitivly easy to rewrite in perl with that as a guide. The iffy portions for a pure perl impl. Wouls be sha1 digest etc (on my blackberry now so I can't check very well if there is apure perl sha1 digest module).