Select Code to Download

while(<INFILE>){
  my $line = $_;
...
while(my $line = <INFILE>){
  # do stuff with $line