すいません、コードのコピペ間違えました

#! c:/perl/bin/perl

# カウントファイルの読み込み
open(IN, "<./count.dat");
$count = <IN>;
close(IN);

++$count;

# カウントファイルへの書き込み
open(OUT, ">./count.dat");
print OUT $count;
close(OUT);

# ヘッダー・HTML出力
print <<END;
Content-type: text/html

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">
<html>
<head><title>あくせすかうんたぁ</title></head>
<body>
<p>あなたは･････$count番目の訪問者です。</p>
</body>
</html>
END