perl -le " while(1){  select(undef, undef, undef, 0.25); print chr 7 }"