perl -Mstrict -we '@a=(a..z,A..Z); print $a[rand @a]'