Search free anonymous proxy

use LWP::UserAgent;
$agent=LWP::UserAgent->new;
$agent->agent('Mozilla/8.0');
$agent->max_redirect(0);
$agent->timeout(5);

$content=$agent->get('http://www.proxylists.net/http.txt')->content;
print 'Checking http://www.proxylists.net/http.txt...';
print "\n";
$content=~s/\r//g;
open FILE,">proxylists.net_http.txt";
print FILE $content;
close FILE;

$content=$agent->get('http://www.proxylists.net/http_highanon.txt')->content;
print 'Checking http://www.proxylists.net/http_highanon.txt...';
print "\n";
$content=~s/\r//g;
open FILE,">proxylists.net_http_highanon.txt";
print FILE $content;
close FILE;

open PROXY,"proxylists.net_http.txt";
@proxy=<PROXY>;
close PROXY;

open PROXY,"proxylists.net_http_highanon.txt";
push(@proxy,<PROXY>);
close PROXY;

print 'Found all proxy... ',scalar(@proxy),"\n\n";;



foreach $z (@proxy) {
    chomp($z);
    ($ip,$port)=split(/:/,$z);
    $agent->proxy(['http'], 'http://'.$z.'/');
    $content=$agent->get('http://www.opkwin.com/whatismyip.php')->content;
    if ($content=~/^500/) {
        print "$z   Noop !!!\n";
    }
    elsif ($content=~/$ip/) {
        print "$z   Is OK...\n";
        open(LOG,">>proxylists.net_available.txt");
        print LOG "$z\n";
        close(LOG);
    }
    else {
        print "$z   ERROR : $content\n";
    }
}

#Search free proxy !!
#http://comfreedom.blogspot.com/2011/12/perl-search-free-anonymous-proxy.html