use Digest--perl5;

my $cxt = Digest.SHA1;
$cxt.add('Pugs!');

# This prints: 66db83c4c3953949a30563141f08a848c4202f7f
say $cxt.hexdigest;