perl -e 'for (a..fred) { print "$_\r" } print "\n"'

##</code><code>##

perl -e "for (a..f) { sleep 1; print qq{$_\r} } print qq{\n};"

##</code><code>##

perl -e "for (a..fred) { print qq{$_\r} } print qq{\n};"