Select Code to Download

use strict;
...
       print $out_file4 $mio2."\n"; # print on file
   }
}

use strict;
use warnings;
...
}
close FILE;