use Mutex::Flock;

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

...

##</code><code>##

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

# terminate script if a previous instance is still running
exit unless $mutex->timedwait(2);

...