perl -le'require The::Module; print +(split " ", `cat /proc/$$/stat`)[22]'