flock DATA, LOCK_EX | LOCK_NB or die "Already executing: $!";

##</code><code>##

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

##</code><code>##

Already executing: Domain error at temp2.pl line 7.