# SCRIPT TO CHECK RUNNING PROCESS
#!/usr/bin/perl -w
use Win32;
use Win32::Process;

$pid = shift;

Win32::Process::Open($ProcessObj,$pid,1); 

$ProcessObj->Wait(INFINITE) or warn print_error();

print "END \n";

$ProcessObj->GetExitCode($ExitCode) or warn print_error();
print "...exited with $ExitCode\n";
sub print_error {
    print Win32::FormatMessage( Win32::GetLastError() );
}