Select Code to Download

use strict;
use warnings;
...

print "Over & Out\n";

use strict;
use warnings;
...
}
print "File $out is complete now\n";
close F;