open my $dummy, ">lock" or die $!;
flock $dummy, LOCK_EX | LOCK_NB or die "Already executing: $!";