Select Code to Download

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

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