use Digest::MD5 'md5';
my $foo = 'hello, world!';
print unpack('q', md5($foo));