use Mutex::Flock;

( my $mutex = Mutex::Flock->new( path => $0 ) )->lock_exclusive;

...