$ok = sysopen my $mem, '/dev/mem', O_RDWR;

##</code><code>##

$ sudo cat /dev/mem > memdump
cat: /dev/mem: Bad address