Select Code to Download

use Win32::Process;
Win32::Process::Create($processobj, "C:\\foo.exe", "foo -options_here"
+, 0, NORMAL_PRIORITY_CLASS, ".") || die print Win32::FormatMessage( W
+in32::GetLastError() );

$processobj->Wait(20000);
$processobj->GetExitCode($return);

eval {
    local $SIG{ALRM} = sub {die "alarm";};
...
      die;
    }
  }