pipe(my $CHILD_RDR,my $PARENT_WTR);
$PARENT_WTR->autoflush(1);