$ perl -e 'foreach (aaaa..ZZZZ) { print $_,"\n";}'