perl -e 'print "$_\n" for A..Z'