diff -urN ../htmllint.orig/htmllint.cgi ./htmllint.cgi
--- ../htmllint.orig/htmllint.cgi	Fri Apr 25 01:30:01 2014
+++ ./htmllint.cgi	Fri Apr 25 03:16:29 2014
@@ -323,7 +323,11 @@
     eval('require LWP::UserAgent') && eval('require HTTP::Request')) {
    $URLGETVer = "LWP $LWP::VERSION";
    $LWPUA = new LWP::UserAgent;
-   my $uagent = "Another_HTML-lint/$VERSION +".$LWPUA->agent;
+   # $LWPUA->agent の既定値は libwww-perl/$LWP::VERSION だが、
+   # LWPはスパム投稿ロボットなどに悪用されることが多く、
+   # UA名に libwww-perl が含まれているだけでWebサーバから
+   # 拒否されてしまう場合がある（www.rakuten.ne.jpなど）
+   my $uagent = "Another_HTML-lint/$VERSION +LWP/$LWP::VERSION";
    $LWPUA->agent($uagent);
    $LWPUA->timeout($TIMEOUT) if $TIMEOUT > 0;
    $LWPUA->max_size($MAXHTMLSIZE*1024) if $MAXHTMLSIZE > 0;