use Win32::OLE;$wmi = Win32::OLE->GetObject("winmgmts:\\\\.\\root\\cimv2");$procs = $wmi->ExecQuery("Select * from Win32_Process");foreach $m(in $procs){ print $m->name, "\n";}
