1 2 3 4 5 6 7 8 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456 perl -e'use Time::HiRes"usleep";$|=1;{print+(int rand 9)%2?"wub ":"wooo ";usleep 1e5;redo}' #### perl -e'$|=1;{print+(int rand 9)%2?"wub ":"wooo ";select$u,$u,$u,.1;redo}' #### perl -e'$|=1;{print rand(9)%2?"wub ":"wooo ";select$u,$u,$u,.1;redo}' 1 2 3 4 5 6 1234567890123456789012345678901234567890123456789012345678901234