Without experimenting, you may need to do things like

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

or

flock { $this->{FL} }, LOCK_EX;
[download]

You have the same types of problems when trying to print on a handle stored in a hash.