Select Code to Download

open (my $INFILE_1, '<', 'name_o_file.txt') ||
    croak "Cannot open input file: $!\n";

open(my $CDA1, '<', 'cda1_raw.txt') ||
    croak "Cannot open input file 1: $!\n";
...

close $CDA1;
close $CDA2;

open(my $CDA1, '<', 'cda1_raw.txt') ||
    croak "Cannot open input file 1: $!\n";
...
close $CDA2;
close $CDA3;
close $CDA4;

sub report_one {

...
        close $OUT;
        return;
}