use Fcntl ':flock';

open my $fh, "+<", $0 or exit;
exit unless flock $0, LOCK_EX | LOCK_NB;