Select Code to Download

while ($line ne ""){
        chomp($line);

while ( $line = <FILE> ) {
    chomp $line;
    next if $line eq "";
    #...... do your stuff here
} # end of while loop.