>perl -e"$|++;for(1..10){ printf qq[%05d\n], $_; sleep 1 }" | perl -E"$|++; while(<>){ print; }"
00001
00002
00003
00004
00005
00006
00007
00008
00009
00010