for(;;)
    {
      select(undef,undef,undef,0.1);          #sleep for 0.1 sec
      # Fortschritt abprüfen...
      if (kill(0,$pid_c)==0){last;} #child finished; go on
    }