#!/usr/bin/perl -w
use strict;
use Fcntl qw( LOCK_EX LOCK_NB );
flock(DATA,LOCK_EX|LOCK_NB)
  or  die "This script ($0) is already running.\n";
#...
__END__