pipe $in, $out;;

print $out 'fred';;

$si = ''; vec $si, fileno( $in ), 1;;

print select $si, undef, undef, 0.1;;
0 0.1