my $g=lastn("/usr/dict/words", 400);
print while(<$g>);