open F, "+<somefile" or die;
while (1) {
  flock F, 2;
  seek(F, 1, 0); # this is the part people forget, resyncs the buffer
  hack(\*F); # work with F in any way you want
  flock F, 8; # flush and unlock
}