perl Digest-SHA1