Select Code to Download

use strict;
use warnings;
...
while (<FH>) {
    print "$_";
}

use strict;
use warnings;
...
}
    
close WRITE;