use Fcntl ':flock';
flock DATA, LOCK_EX|LOCK_UN or exit;