Select Code to Download

open (FH, "<filename.txt") || die "could not open file: $!";
@ODB = <FH>;
...
print NFH "$line";
}
close (NFH);