sub my_md5_hex {
    my ($str) = @_;
    my $cmd = "perl -MDigest::MD5 -e " .
        "'print Digest::MD5::md5_hex (\"$str\"), \$/'";
    my $md5 = `$cmd`;
    chomp ($md5);
    return $md5;
}