use strict;
use Win32::Process::Info;
use Win32::Process;
use Data::Dumper;
Win32::Process::Info->Set(variant=>'WMI');
my $pi = Win32::Process::Info->new();
my $exitcode;
for($pi->ListPids){
    my ($info) = $pi->GetProcInfo($_);
	if($info->{Caption} =~ m/^java.exe$/i){
			if($info->{WorkingSetSize} ge '100000000'){
				my $obj;
				print "Kiling Java Process\n";
				my $pid = $info->{ProcessId};
				Win32::Process::Open($obj,$pid,1);
				$obj->Kill(0);
		}
	}
}