$ cat testMD5.pl
use strict;
use Digest::MD5 qw/ md5_hex /;

my $digest=md5_hex("http://www.berghold.net");

printf "%s\n",$digest