Select Code to Download

use Fcntl qw(:DEFAULT :flock);
# assume $flock_enabled set accordingly
...
    flock($fh, LOCK_EX) || die "Can't flock $fn: $!" if $flock_enabled
+;
    return $fh;
}