END{$obj->Kill($exitcode) if $obj->GetExitCode() == STILL_ACTIVE};

##</code><code>##

use Win32::Process (STILL_ACTIVE);

##</code><code>##

END{$obj->Kill($exitcode)};

##</code><code>##

$ProcessObj->GetExitCode($exitcode);