Select Code to Download

use Fcntl qw( :flock );
{
...
    print $ini edit(@lines) or die $!;
    close $ini or die $!;
}

use Fcntl;
{
...
    close $out or die $!
    rename "$path/$fname.bak", "$path/$fname" or die $!;
}