Default@z ~
$ more test.pl
use Digest::MD5 qw (md5_hex);

my $digest = Digest::MD5->new;
$digest->add("Hi");
print length($digest->hexdigest);