#! perl -w use Win32::OLE; $instances = Win32::OLE->GetObject("winmgmts:")->InstancesOf("Win32_Process") or die "Cannot access WMI"; for my $proc (in $instances) { printf "%5d %7d %s\n", $proc->{ProcessId}, $proc->{WorkingSetSize}/1024, $proc->{Name}; }