perl -e '@a = (a..z); print uc for(a..z);'