my $pi = Win32::Process::Info->new( undef, 'WMI' ); 
my @procs = $pi->GetProcInfo();