flock($fh,2);
...process stuff here...
$flock($fh,8);