use Win32::Process;
    use Win32;

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

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

    #$ProcessObj->Suspend();
    #$ProcessObj->Resume();
    #$ProcessObj->Wait(INFINITE);
     
    $Obj->GetExitCode($exitcode);
	print $exitcode;