$ perl -E 'open(my $fh, "<", "/usr/share/dict/words"); my @words = map {chomp; $_} <$fh>; close $fh; say join " ", map {$words[int rand @words]} 1..4' menu chemists administrative seeps
shuf -n 4 /usr/share/dict/words | tr -dc 'A-Za-z0-9'