If you need to pick more than one word during a run of this script, then a solution based on Tie::File would probably be better.

use Tie::File; 

tie my @word, 'Tie::File', '/usr/dict/words' or die $!;

print "$word[rand @word]\n" for 1..10;
[download]

-sauoq
"My two cents aren't worth a dime.";