あと一行半。

#!/usr/local/bin/perl
use CGI":all";charset$c=Shift_JIS;param(k,$k=1+param k);($w=escapeHTML(param w)
)=~tr/\x0A\x0D//d;($C,$M,$L,$E,@M)=<DATA>;open L;eval{flock L,2};@l=((0)x26,"
");sub d{($s,$m,$h,$d,$m,$y)=localtime(time-pop);$l[0]=($y+1900).sprintf"%02d"x
2,$m+1,$d}open C;d>(@c=<C>)[-1]?@c<14||shift@c:(@l=split/<>/,pop@c);$l[$_]++for
$h+2,1;open C,">$C";print C@c,join"<>",@l;d 1209600;open M;@m=grep$l[0]<=$_,<M>
;open M,">$M";print M@m,""ne$w&&d."<>$h<>$w<>\n";put header,start_html(lang,ja,
encoding,$c),$k<10?(p($M[rand@M]),startform,p(hidden(k),submit Clap),p(Comment,
textfield w),endform):p$E,end_html;__END__
./log.dat
./mes.dat
>./lock.dat
沢山の拍手を有り難うございました！
拍手が送信されました。ありがとうございました！
拍手が送信されました。ありがとうございますた！
拍手が送信されました。ありがとさ〜ん！