$ coproc perl -MIO::File -le 'autoflush STDOUT 1; do {print $_; sleep 2;} for 1..5'
$ cat <&${COPROC[0]}
1
2
3
4
5