use strict;
use warnings;
use Digest::MD5;

my $msg = 'The quick brown fox jumps over the lazy dog.';
my $digest = Digest::MD5::md5_hex ($msg);

$digest = substr ($digest, 0, 8) ^ substr ($digest, 8, 8);
print unpack ('H16', $digest), "\n";