use Fcntl ':flock';
...
flock $fh, LOCK_EX or exit $status;
...

##</code><code>##

# will block until file is unlocked
flock $fh, LOCK_EX or exit $status;

# will exit immediately if the file is locked
flock $fh, LOCK_EX | LOCK_NB or exit $status;