perl -le"$|++;print 'x'x80 while do{ 1 for 1..1e7;1}" | perl -e"$|++; print while <>"