Select Code to Download

$ perl -e '@c=(A..Z,a..z);print $c[rand(scalar@c)|0]'
F$

sub letter { ('A'..'Z','a'..'z')[rand(52)] }
sub city { join '', map {letter()} 1..10 + int rand 30 }