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

##</code><code>##

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