flock(HANDLE, 2);

##</code><code>##

   flock(HANDLE, 2) || warn "flock failed: $!";