Select Code to Download

sub setLineBreak {
    my $inFile = shift;
...
    }
    close IN;
}

while(<FILE>){
  chomp;
  # etc.
}