Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
$ perl unpackq.pl
e3ba1f79d1badb3a 0
```