do {
    if(  0 < $tries++  ) {
        warn "Can't flock file: $!\n";
    } elsif(  10 < $tries  ) {
        die "Gave up trying to lock file.\n";
    }
    warn "Locking file (attempt $tries)...\n";
} while(  ! flock(FILE,2)  );
# Success!