Use Digest::SHA instead of Digest::SHA1.