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