#!/usr/bin/perl

open(MEM, "/dev/mem") or die "Pamiec nie jest dostepna jako /dev/mem.";

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

print 100 * $jedynki / ($jedynki + $zera), " procent jedynek.\n";

