#!/usr/bin/perl
#proxy checker
# (c)opyright devsn.org
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"); 
$ua->env_proxy( );
print "\n ---===[mE]IP Checker===---\n\n";

$proxies = "proxies.txt";

print "[x]Please Wait..\n\n";

open(FILE, "$proxies\n") or die("ROFL");
my @line = <FILE>;
close(FILE);

foreach $proxy (@line) {

$proxy =~ s/^\s+//;
$proxy =~ s/\s+$//;
$p = $ua->proxy("http");
$ua->proxy("http", "http://" . $proxy . "/");
again:
my $response = $ua->get("http://cmyip.com");
if ($response->is_success) {
if ($response->content =~ m/\<h2 align\=\"center\" class\=\"style2\"\>My country is(.*?)\<\/h2\>/ig) {
$c = $1;
$c =~ s/^\s+//;
$c =~ s/\s+$//;
print $proxy . " is working!,\n\n";
open(FILE, ">>working-proxies.txt");
print FILE "$proxy\n";
close(FILE);
}
else {
goto again;
}
}
else {
print $proxy . " FAIL" . "\n";
print $response->status_line . "\n\n";
next;
}
}
print "\n----==[End]==----";
$lol = <>;