use Win32::Process;
    use Win32;

    sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }

   
 Win32::Process::Open($Obj,$pid=12732,$iflags)|| die ErrorReport();
         print "connected to process $pid ";

       
    $Obj->GetExitCode($exitcode);
	print  $exitcode;