Also, you should be checking that the Open() has succeeded:

Win32::Process::Open($obj,$pid,1) or die "Failed to open $pid: $^E";
[download]

I was ignoring this possibility as I thought that you would be getting an "$obj uninitialised" error had the called failed, but unfortunately, the author chose to return 0 instead of undef.