use Digest::MD5;

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