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