$ perl -e'sleep 1, print "\r$_" for 1..10; print $/'