単純な質問ですみまそん。
windowsのactive perl を使っているのですが、
ファイルの行数を数えるのは↓が最速でしょうか？もっといい方法はありますか？

open(FILE, "< filename");
$i++ while <FILE>;
close(FILE);