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