proooooooooooxy checker

[حامد کیانمهر]

p r o oooooooox y checker

#!/usr/bin/perl
#

use WWW::Mechanize;
@proxy=`cat prooooooxy.lst`;
foreach $i (@p r o x y) {
chomp($i);
my $go = WWW::Mechanize->new( agent=> "Mozilla/5.0" );
$go->proooooooxy(['http'], 'http://'.$i.'/');
$go->get('http://www.whatismyip.com');
$match = $go->content;
# print "$match\n";
my($crap,$ip)=split(/^(.*):/,$i);print "$i -> ";
if ($match =~ m/(.*)Your IP Is $ip(.*)/ ) { print "Ok.\n";
open(LOG,">> proooooooxy.log"); print LOG "$i\n"; close(LOG);
}
else { print "Nop\n"; }
}