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