"...now it work."

That's nice. But what did you do? It's good practice to report the reason for your success - but XPs are not guaranteed for this effort ;-(

Best regards, Karl

You're right.. I changed my code as suggested above in:

use Digest::SHA "sha1_hex";

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