$pid= $Proc->{ProcessID};	   
    Win32::Process::Open($p_obj, $pid, 1);
    $p_obj->GetExitCode($exitcode);
    Win32::Process::KillProcess($pid, $exitcode);