$pid=open3( *wr1, *rd1, *er1, "C:\\Programme\\service.exe" );
sleep 3;

close(wr1);
local($/) = undef;
close(rd1);
close(er1);
  
waitpid $pid, 0;