$line = <FILENAME>;
      while ($line ne "")
          {
          print "$line<BR>";
          $line = <FILENAME>;
          }