use strict;
use warnings;

use Digest::SHA1  qw(sha1_hex);

my $data = "squeamish ossifrage\n";
print sha1_hex($data);