use Fcntl ':all';
my $lock = "/var/lock/whatever";
sysopen my $f, $lock, O_WRONLY | O_CREAT, 0644 or die;
flock $f, LOCK_EX | LOCK_NB or exit;
system 'rsync', ....;
__END__