Is there any POSIX signals that I could utilize in my perl program to create event-driven programming? Currently I have multi-process program that is able to cross communicate but my parent thread is only able to listen to listen at one child at a time.

foreach (@threads) {
  sysread(${$_}{'read'}, my $line, 100);
  chomp($line);
  print "Parent hears: $line\n";
}

The problem is that the parent sits in a continual wait state until it receives it a signal from the first child before it can continue on. I am relying on 'pipe' for my intercommunication.

My current solution is very similar to: http://stackoverflow.com/questions/2558098/how-can-i-use-pipe-to-facilitate-interprocess-communication-in-perl

If possible I would like to rely on a $SIG{...} event or any non-CPAN solution.