Select Code to Download

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

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

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