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