sub memsize {
     open(FH, '/proc/self/status');
     while(<FH>) {
         return $_ if /^VmSize/;
     }
     close FH;
 }