Proxy Checker

############################################

#!/usr/bin/perl

# Proxy Checker

# https://marcoramilli.blogspot.com

############################################

use WWW::Mechanize;

@proxy=`cat proxy.lst`;

foreach $i (@proxy) {

chomp($i);

my $go = WWW::Mechanize->new( agent=> "Mozilla/5.0" );

$go->proxy(['http'], 'https://'.$i.'/');

$go->get('https://www.whatismyip.com');

$match = $go->content;

# print "$matchn";

my($crap,$ip)=split(/^(.*):/,$i);print "$i -> ";

if ($match =~ m/(.*)Your IP Is $ip(.*)/ ) { print "Ok.n";

open(LOG,">> proxy.log"); print LOG "$in"; close(LOG);

}

else { print "Nopn"; }

}

BTW, why don't you write some comments instead to email me ? 😀

Just kidding, emails are fine.