@ARGV=qw(/path/to/file); while (<>) { chomp; ... }