Q:\>perl -MPOSIX -wle "print for grep {$_ =~ /$$/} `tasklist`"
perl.exe                    5508 Console                 0      3.936 K


Q:\>perl -MPOSIX=strftime -wle "print for grep {$_ =~ /$$/} `tasklist`"
perl.exe                    4904 Console                 0      3.672 K