open INP, "<xyzzy";
  while (! $fileRotated){
     while(<INP>){
        ... read lines
     }
     sleep 1;
     seek (INP,0,1);  #clear EOF
     #check inodes and length
  }