eperl -e'print A..$_,$/for A..Z'
d