#!/usr/bin/perl
###############################################
use LWP::Simple;
use LWP 5.64;
use HTTP::Cookies;
################################################
@ARGV == 2 or die "!!!! usage pl <ping host(www.host.com)> <file spisok proxy(prx.txt)>\n";
$spg_proxy=">>verify_prx.list";
################################################
print "Checking...\n";
################################################
open (SPFILE,@ARGV[1])
        or die "File [proxy_list] is not open: ".@ARGV[1]."\n";
print "list open\n";
################################################
$count_proxy=0;
@spx=<SPFILE>;
################################################
for($i=0;$i<=$#spx;$i=$i+1)
        {
        print spx[$i];
        chomp $spx[$i];
        print "Current Proxy: ".$spx[$i];
        my $browser = LWP::UserAgent->new
                                        (
                                                env_proxy  => 0,
                                                keep_alive => 1,
                                                timeout    => 300,
                                        );
        $browser->cookie_jar(HTTP::Cookies->new());
        $browser->proxy('http', 'http://'.$spx[$i].'/');
        if(length($spx[$i])>12)
        { #IPv4 (Min->xx.yy.vv.aa:) :)) на лишнее, время не тратим)
        my $response = $browser->get('http://'.@ARGV[0]);
        if($response->code==200)
                {
                print " - Da\n";
                $count_proxy=$count_proxy+1;
                open (SPGFILE,$spg_proxy)
                        or die "File [proxy_list] is not open: ".$spg_proxy."\n";
                print SPGFILE $spx[$i]."\n";
                close(SPGFILE);
                }
        else
                {
                        print " - HeT\n";
                }

        }
        }
print "\n Goood proxy: ".$count_proxy;
################ &1tr|_huc ################################
close(SPFILE);