use Digest::MD5 'md5';
my $foo = 'hello, world!';
my @v = unpack('q', md5($foo));
printf "%x %x\n", @v;

##</code><code>##

$ perl unpackq.pl
e3ba1f79d1badb3a 0