#!/usr/bin/perl

# You may need to be superuser to run this program.

open(MEM, "/dev/mem") or die "Memory isn't accessible as /dev/mem.";

while (read(MEM, $buf, 1048576)) {
    for ($i = 0; $i < 8388608; $i++) {
        vec($buf, $i, 1) ? $ones++ : $zeros++;
    }
}

print 100 * $ones / ($ones + $zeros), " percent ones.\n";