【Perl】初心者コーナー Part15

htmlのﾃﾝﾌﾟﾚｰﾄを読み込んで、表示させる掲示板で、
次のページへ移動する時にログファイルの行数で判断しようと思っています。

下の方法だと、行数のためにログを開くのがかなり無駄に思えるのですが
ｱﾌｫなので良い方法が見つかりません。ﾋﾝﾄをご教授して頂けませんか？
$page は1ページの表示数です

open(LOG,$log)
@lines = <LOG>;$lines=@lines;close(LOG);

$end = $page + $now_no;
if ($end < $lines) {$next = "bbs.cgi?～";}
else {$next = "";}

open(IN,$skin); $locate = \@header;
while(<IN>){
if (//) { $locate = \@table; next; }
if (//) { $locate = \@footer; next; }
push(@$locate,$_); }
close(IN);

print @header;
open(LOG,$log);
while(<LOG>){print $table;}
close(LOG);
print @footer;

一部省略しているので、分かりにくいかも知れませんが・・・