use Fcntl ':flock';
#...
flock(FH,LOCK_UN);

#Or:
flock(FH,8);