Select Code to Download

use warnings;
use strict;
...

close IN1;
close OUTFILE;

use warnings;
use strict;
...
 
close $in1;
close $outfile;