$|=1; # $OUTPUT_AUTOFLUSH, 0 Puffert einige Zeichen, !=0 schreibt direkt
  $sock->autoflush();
   my $kid;
  
  # Quelle: http://www.unix.org.ua/orelly/perl/cookbook/ch16_10.htm
  my $pid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $job) or die  "Fehler in open3 $!\n";
  print $sock "Warte das der Prozess $job mit $pid beendet wird\n";
  do {
    sleep(1);
    #print $sock ".";
    syswrite($sock, ".", 1);
    $kid = waitpid($pid, WNOHANG);
   } until $kid != 0;
  print $sock "\n";