use Fcntl qw !LOCK_EX LOCK_NB!;
die "Another instance is already running"
     unless flock DATA, LOCK_EX|LOCK_NB;

... your code here ...

# Don't forget __END__ or __DATA__
__END__