The Digest::SHA1 module allows you to use the NIST SHA-1 message digest algorithm from within Perl programs. The algorithm takes as input a message of arbitrary length and produces as output a 160-bit {"fingerprint"} or {"message} digest\" of the input.

WWW: http://search.cpan.org/dist/Digest-SHA1/
