$ perl -e 'open STATUS, "< /proc/self/status";
my $status = {map {split /:\s*/} <STATUS>};
close(STATUS);print "$_ => $status->{$_}" for keys %$status'
Groups => 501 101 102 
SigCgt => 0000000000000000
SigIgn => 8000000000000000
State => R (running)
Name => perl
Uid => 501	501	501	501
CapPrm => 0000000000000000
CapEff => 0000000000000000
SigPnd => 0000000000000000
VmExe => 488 kB
FDSize => 256
PPid => 1341
CapInh => 0000000000000000
Gid => 501	501	501	501
VmStk => 20 kB
VmLib => 1240 kB
VmRSS => 1148 kB
SigBlk => 0000000000000000
Pid => 10847
VmLck => 0 kB
VmData => 316 kB
TracerPid => 0
VmSize => 2280 kB