if(-f "$bookfile"){
  open(FILE, "+<$bookfile") 
   || &debug("Oops, I cannot read the bookfile $bookfile: $!");
  if($opsys eq "unix"){flock(FILE, 2);}
  else{binmode(FILE);}
  while (my $line = <FILE>) {
    # do something with one line
  }
}

##</code><code>##

tr/
 /