いきなり壁にぶち当たりました。
参考書のリストをとりあえず打ってみたのですが　ｲﾝﾀｰﾅﾙｻｰﾊﾞｰｴﾗｰ　がでるっす。
参考書付属のプログラムはちゃんと動くのに、自分で打つと動かなかったです。
自分の打ったファイルと参考書のプログラム、何が違うかわかる人いないですか。。
ヘタレで全くもってすいません。HTML部分は単体で動かしてみて正常に動きました。
自分の打ったリスト：
#! c:/perl/bin/perl

# 読みこみ
open(FILE, "+<./count.dat") or die("エラー：カウントファイルが開けません");
eval{ flock(FILE, 2); };
$count = <FILE>;

# 出力
seek(FILE, 0, 0);
print FILE ++$count;
close(FILE);

# サーバー
print <<END;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>perlあくせすかうんたー</title></head>
<body>
<p>あなたは、$count番目の来場者です</p>
</body>
</html>
END

参考書のリスト：
#! c:/perl/bin/perl

# カウントファイルの読み込み
open(FILE, "+<./count.dat") or die("エラー：カウントファイルが開けません");
eval{ flock(FILE, 2); };
$count = <FILE>;

# カウントファイルの書き込み
seek(FILE, 0, 0);
print FILE ++$count;
close(FILE);

# サーバ出力
print <<END;
Content-type: text/html

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