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