次のカウンターのCGIプログラムで間違っているところはどこでしょうか？
参考書を手にしながら次のようにCGIを作成しましたが、上手く動きません。
個人別カウンター（アクセスしてきた個人ごとにカウンターが変わる)CGIです。
いろいろ調べたのですが、どこが間違っているのか分からなくなりました。
どうぞお願いいたします。
＝＝＝＝＝＝＝
#!/usr/local/bin/perl
$cookie = $ENV{'HTTP_COOKIE'};
@array = split(/; /, $cookie);
foreach $tmp (@array){
($key, $value) = split(/=/, $tmp);
if($key eq 'count'){
$count = $value;
}
}
if( $key == ""){
$count = 0;
}
$count++;
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time + 60*60*24*30);
@day = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "sat");
@month = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Set", "Oct", "Nov", "Dec");
$expireDate = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT", $day[$wday], $mday, $month[$mon], $year+1900, $hour, $min, $sec);
print "Content-Type: text/html\n";
print "Set-cookie: count=$count; expires=$expireDate \n\n";
Print "<html>\n";
Print "<title>counter4</title>\n";
print "<body>\n";
print "<h1>個人別カウンター</h1>\n<hr />";
print "あなたは$count回目のご訪問です。\n";
print "</body>\n";
print "</html>";
exit;
