use constant (randchars => join("",'a'..'z','A'..'Z'));
use constant (randchars_len => length(randchars));

sub letter {
    return substr(randchars,int(rand(randchars_len)));
}