perl -e '$|++;for(1..15){ print $_;sleep 1; print "\b"}
# prints:
1111115