local *FH = \$this->{FL};
flock FH, LOCK_EX;

##</code><code>##

flock { $this->{FL} }, LOCK_EX;