q( find / 2>/dev/null | perl -pe '$| = 1; select undef, undef, undef, 0.01' )