Non-interactive text proxy lists download for perl

Non-interactive text proxy lists download for perl


CODE for perl
[ perl | python | java6 | wget | curl | java ]
  • with Perl and LWP::UserAgent homepage, LWP::UserAgent source:
    
    #!/usr/bin/perl
    
    require LWP::UserAgent;
    
    my $base='http://rosinstrument.com/cgi-bin';
    
    my $ua=LWP::UserAgent->new;
    $ua->cookie_jar({});
    $ua->agent("Rosinstrument.com (compatible; ver. 0.1)");
    $ua->get("$base/login.pl");
    $ua->post(
     "$base/login.pl",
     [ 'login' => '[YOUR_LOGIN]', 'passwd' => '[YOUR_PASSWD]' ]
    );
    
    for my $list (http1000, httpanon500, https500, socks1000){
     $ua->request(
      HTTP::Request->new('GET'=>"$base/tl.pl?$list"),
      "$list.txt"
     );
    }
    
    
Results has been placed in text files http1000.txt, httpanon500.txt, https500.txt, socks1000.txt.