use strict;
use Parallel::ForkManager;
use IO::Handle;
my ($something, $somemaxnum) = @ARGV;


pipe(DAREADER, DAWRITER);

DAREADER->autoflush(1);
DAWRITER->autoflush(1);

sub onFinish {
  while (<DAREADER>) {
     ## read data from children
     print;
  }
}

my $fkmngr = new Parallel::ForkManager($somemaxnum);

$fkmngr->run_on_finish(\&onFinish);

for (1..$something) {
  $fkmngr->start and next;
  # child
  close DAREADER;
  print DAWRITER "some text";
  close DAWRITER;
}
close DAWRITER;
$fkmngr->wait_all_children;
close DAREADER;
__END__