open(INFILE, '<', $File::Find::name)
   or warn("Cannot open input file $File::Find::name: $!\n");