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