perl a.pl /usr/share/dict/words