...
   open (INPUTFILE, $inputfile) or die ("\nERROR: Unable to open file \"$inputfile\".\n");
   while (!eof(INPUTFILE))
      {
      $line = readline(INPUTFILE);
...