perl -le"$|=1; print and select(undef,undef,undef,0.1) for 1 .. 1000" 
........^..........................................................^