use Fcntl qw(:flock);

##</code><code>##

flock FH, LOCK_SH or die "Failed acquiring shared lock on $filename: $!";

##</code><code>##

flock FH, LOCK_EX or die "Failed acquiring ex. lock on $filename: $!";