pipe(*A,*B);
$child1=fork;
$child2=fork;
close B;
while(<A>){
  react
}