use Digest::MD5;

sub GetMD5Digest {
    return (&Digest::MD5::md5_hex($_[0]));
} # GetMD5Digest

##</code><code>##

use Digest::MD5;

sub GetMD5Digest { # former known as md5Hash
    my $digest = &Digest::MD5::md5_hex($_[0]);

    # split up by pairs, eg. aab23f => aa b2 3f
    $digest =~ s/([A-Za-z0-f][A-Za-z0-f])/$1 /g;
    chop($digest);

    return ($digest);
} # GetMD5Digest