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