This perl script just goes through /proc/maps, finding inodes numbered with 0 and adds those sizes. Seems to over-report things with our servers, probably because it counts all pages even if they're copy on write, don't know how to get around that. Any comments are welcome.