#!/usr/bin/perl
#Coded by Torune [Bloodhound]
#Email: torune [at] hotmail.com
#Homepage: [url]http://torune.126.com[/url]
#Notice: For personal usage only, all right reserved
use HTTP::Request::Common qw(GET);
use LWP::UserAgent;
open(LIST,"proxy.txt");
@contents=<LIST>;
close LIST;
foreach $proxy (@contents){
$ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0');
$proxy = "http://".$proxy;
$ua->proxy(http => $proxy );
my $res = $ua->request(GET 'http://www2.4tb.net/tghd.asp?name=fEElDAshiT');
print "\nGo go go......\n";
if ($res->is_success) {
print "Oh Yeah, babay!\n";
}
else {
print "Error: " . $res->status_line . "\n";
print "Bad happened:
\tThis proxy server seems down,try a new one.";
}
}
exit;