perl -le "$a='AAAAAAAAAA'; while ($a lt 'zzzzzzzzzz') { print $a++ }"