Hallo Steve,

>> To use the functionality in scoop I inserted the line
>> "use Digest::SHA1  qw(sha1 sha1_hex sha1_base64);"

> Try this:

> my $strhash = Digest::SHA1::sha1_hex($string);

It works! Thank you very much.

Henning


-- 
Henning Schroeder, Dipl.-Psych.
mailto:schroeder at psychologie.uni-wuerzburg.de