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