Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...

open DICT, '<', $ARGV[0] or die $!;
print for bestN sub{ length( $::b ) <=> length( $::a ) }, 10, sub{ loc
+al $^W; chomp( $_ = <DICT> ); $_ };;

Select or download this

C:\test>topN words.txt
100
...
accommodatingly
accommodational
absorbabilities