my $file = $ARGV[0];

##</code><code>##

script.pl word file1 file2...

##</code><code>##

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