foreach my $d(readdir(PROC)){
        next if $d !~ /^[0-9]+$/;

        my $procdir = "/proc/$d";
        open(IN, "<$procdir/status") || die "can't open status with$procdir";
        while(<IN>){
            @a = split(/\s+/, $_) if /Uid/;
            $temp[0] = $a[1];
            @b = split(/\s+/, $_) if /VmSize/;
            $temp[1] = $b[1];
        }