c:>perl -E"undef($/); $f[0]=<>; $f[$_]=$f[$_-1] for 1..9; say`tasklist`; undef @f; say`tasklist`;" acktrace | find "perl"
perl.exe                      7996 Console                    1  1,927,000 K
perl.exe                      7996 Console                    1      4,796 K