my @words;
INIT {
    open my $wh, "<", "/usr/share/dict/linux.words" or die;
    @words = grep {6 > length} <$wh>;
    close $wh or die;
}
sub select_a_word {lc $words[rand @words]}