use Digest::SHA1 qw(sha1_hex);

print sha1_hex("SmokeScreen"), "\n";

# Prints "95cb0bfd2977c761298d9624e4b4d4c72a39974a"