open INFILE,"$datafile" or die
          "Cannot open $datafile :$!";