Select Code to Download

    use Fcntl ':flock';
    ....
...
    flock $fh => LOCK_EX or die "Failed to lock: $!";
    print $fh $your_text;
    close $fh or die "Failed to close: $!";