#! /usr/bin/perl

use strict;
use warnings;
use POSIX ":sys_wait_h";


fork_it();

#--------------------------------------------------------------------------------#
#                                Subroutines                                     #
#--------------------------------------------------------------------------------#

##
#  fork_it starts several processes for domain-requests
##
sub fork_it{

    for (1..5){
      pipe(READER,WRITER);
      my $pid=fork();
      if($pid==-1){
        warn($!);
        last;
      }
      if($pid){
        close WRITER;
        while(my $line = <READER>){
          # lese aus der Pipe
        }
        $pids{$pid}=1;
      }
      else{
        close READER;
        print WRITER "irgendwas\n";
        exit(0);
      }
    }
    while(keys %pids){
      my $pid=waitpid( -1, WNOHANG );
      die "$!" if $pid == -1;
      delete $pids{$pid};
    }
  }
}# end fork_it