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