my $word = shift;
while (<>) { # Reads the files line by line,
             # ... $ARGV contains the filename.
}