Select Code to Download

use strict;
use warnings;
...

close (IN);
close (OUT);

use Hash::Util qw(lock_hash);
my %settings; 
...
    $settings{$key}=$setting;
}
lock_hash %settings;