Select Code to Download

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

   read(INPUTFILE, $x, 1);