open(FH, ">>lock.txt") or die "can't open lock.txt: $!\n";
flock(FH, 2) or die "Can't flock lock.txt: $!\n";
now_access_the_common_resource();
close(FH);