perl - Perlを使用してテキストファイルの段落をカウントするにはどうすればよいですか?

Question

テキスト ファイル内の段落をカウントできる Perl コードを作成する必要があります。私はこれを試しましたが、うまくいきません：

open(READFILE, "<$filename")
or die "could not open file \"$filename\":$!";

$paragraphs = 0;

my($c);

while($c = getc(READFILE))
{
if($C ne"\n")
{
$paragraphs++;
}
}

close(READFILE);

print("Paragraphs: $paragraphs\n");