#------------------------------------------------------------------------------#
sub lock {
#------------------------------------------------------------------------------#

        $lockfile = "./file_write.lock";
        while (-e "$lockfile") {
                $current_time = time;
                if (($current_time - (stat($lockfile))[9]) > 10) {
                        unlink("$lockfile");
                        last;
                }
                select(undef, undef, undef, .5);
        }
        open(LOCKFILE, ">$lockfile");
}

#------------------------------------------------------------------------------#
sub unlock {
#------------------------------------------------------------------------------#
        close(LOCKFILE);
        unlink("./file_write.lock");
}