1 2 3 4 5
while (<>) { $hash{$_} = 1; } open(FD, "/proc/$$/status"); while (<FD>) { print if /^Vm[RD]/; }