my @letters = ('a'..'z', 'A'..'Z');
print $letters[int rand @letters], "\n";