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