eval{ flock($fh, LOCK_EX|LOCK_NB) or die "can't lock!" };