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