Check Windows memory usage in perl

use Win32::OLE('in');
use constant returnit => 0x10;
use constant forwardit => 0x20;

my $wmi = Win32::OLE->GetObject("winmgmts:\\\\.\\root\\CIMV2")
or next;
my $col =
$wmi->ExecQuery( "SELECT * FROM Win32_Process", "WQL",
returnit | forwardit );

foreach my $item ( in $col) {
$mem = $item->{WorkingSetSize} / 1024;
$name = $item->{Caption};
print "App: $name\n";
print "Memory: $mem K\n\n";
}