Select Code to Download

while (<$in>) { # assigns each line in turn to $_
   #print "Just read in this line: $_";
...
      print;
   }
}