> perl -e "for(1..10){print qq(\r$_.);select undef,undef,undef,0.5}"