Select Code to Download

while (condition)
{ 
...
    } 
    ....
}

while (my $line = <INFILE>)
{
...
                      # chomp is not necessary
   ...
}