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