my ($rd, $wd, $sz);
    pipe($rd, $wd) or die "pipe(print): $!\n";
    $sz = fpathconf($wd, _PC_PIPE_BUF)
        or die "fpathconf(pipe): $!\n";