use Fcntl qw(:flock);

# lock myself
open my $lockfh, "<", $0
    or die "Cannot lock myself: $!\n";
flock $lockfh, LOCK_EX;

# ...

close $lockfh;