C:\>perl -e "print grep(/Perl /,qx[pslist -m Perl])"
Name   Pid      VM      WS   WS Pk    Priv   Faults NonP Page PageFile
Perl  1632   28236    1416    1416     592      355    2   13      592

C:\>perl -MWin32::GUI -e "print grep(/Perl /,qx[pslist -m Perl])"
Name   Pid      VM      WS   WS Pk    Priv   Faults NonP Page PageFile
Perl  1516   34000    3200    3208    2680      802    3   17     2680

C:\>perl -MWin32::GUI -e "$main = Win32::GUI::Window->new(-name => 'Main'
, -width => 100, -height => 100);print grep(/Perl /,qx[pslist -m Perl])"
Name   Pid      VM      WS   WS Pk    Priv   Faults NonP Page PageFile
Perl  1632   34000    3240    3248    2684      812    3   17     2684