use LWP::UserAgent;

my ($req,$res,$html,$ua,$buffer,$request,$referer);

while(1) {

$ua = new LWP::UserAgent;
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)');
$ua->timeout(120);

$buffer = 'cid=9&mid=mSendVote&poll_id=344&cginh=1&cgint=1&vote=1&submit=Vot
ez';
$request = "http://team.sports.com/cgi-poll/vote/vote.cgi";
$referer = "http://www.sports.com/fr/judo/";

$req = new HTTP::Request POST => $request;
$req->content_type('application/x-www-form-urlencoded');
$req->content($buffer);
$req->referer($referer);
$res = $ua->request($req);

$req = new HTTP::Request GET => $referer;
$req->content_type('');
$req->content('');
$req->referer($request);
$res = $ua->request($req);
$html = $res->content;

if ($html =~ /Nombre de votes: (\d+)/) { print $1."\n"; }
sleep 1;
}