use Digest::SHA "sha1_hex";

my $var = sha1_hex("Thank you Monks!!!");