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