#!/usr/bin/perl
use Fcntl qw(LOCK_EX LOCK_NB);
flock DATA, LOCK_EX | LOCK_NB or die "Already executing!";
... rest of code ...
# do not remove this __END__!
__END__