perl -wle" print `tasklist /nh /fi "PID eq $$"` =~ m[(\S+ K)$] }"