$ perl -e'$|=1; { print("x"x1024); warn(++$i); redo }' | perl -e sleep
...
60 at -e line 1.
61 at -e line 1.
62 at -e line 1.
63 at -e line 1.
64 at -e line 1.
[blocks]
^C