Select Code to Download

use strict;
use warnings;
...
    }

close $fh;

open FH, "<infile.txt" or die $!;
open OUT, ">outfile.txt";
...
               }
            }
     close FH;