#!/usr/bin/env perl
use strict;
use warnings;

open(FH, "+< rotator_lock")                or die "can't open: $!";
flock(FH, 2)                        or die "can't flock: $!";
# update file, then...
sleep(120);
close(FH)                           or die "can't close: $!";