pipe(FROM_PARENT, TO_CHILD) or die "pipe: $!";
select((select(TO_CHILD), $| = 1))[0]);