use strict;
use warnings;
use Fcntl ':flock';

# only one of us
open my $ME, '<', $0 or die "Couldn't open self: $!";
flock $ME, LOCK_EX | LOCK_NB or exit;

sleep;