sleep, or select

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