Select Code to Download

       $TheLine = $_;
          while (my $TheLine = <INPUT>) {
           # ....etc.
          }

      @lines = <INPUT>;
          for (@lines) {
...
               }
             }
          }