close(LOCK) || warn "lock file exited $?\n";;
$str=`cat $fifo.lock`;

flock LOCK, $UNLOCK;