open$:,"</usr/share/dict/words";while(<$:>){...}
@ARGV="/usr/share/dict/words";while(<>){...}