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

##</code><code>##

     while (<FILENAME>) {
          print "<BR> $_";
     }