Select Code to Download

P1 check if "the.lock" exists -> no
P2 check if "the.lock" exists -> no
...
P2 create "the.lock" -> ok
P1 do "more code"
P2 do "more code"

use Fcntl qw(:flock);

...
print "Done.\n";

close(LOCK);