perl random word

Home: www.packetnexus.com

perl -e 'open DICT, "/usr/share/dict/words"; @DICT = <DICT>; \
print $DICT[rand(@DICT)];'

modify the path to the words file for your os


Back to the Index