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