$ cat testMD5.pl use strict; use Digest::MD5 qw/ md5_hex /; my $digest=md5_hex("http://www.berghold.net"); printf "%s\n",$digest #### $ perl testMD5.pl 84b40875c5bc4da7ae368175025a32f9