Help for this page

Select Code to Download

Select or download this

our @lockstat;
sub readlock
...
    fcntl_lock($fh,F_UNLCK);
  }
}