read(FH, $buff, (-s FH));

でログを読んだときは負荷減りませんか？