wieso benutzt du eigentlich Fcntl und schreibst dir die variablen
$LOCK_EX etc. selbst? ziemlich merkwürdig.
use Fcntl ':flock';
...
flock FH, LOCK_EX;