#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;

my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows NT 5.1; rv:17.0) Gecko/17.0 Firefox/17.0');
my $cookie_jar = HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);

my $parsing=$ua->get("http://incloak.com/proxy-list/",
'User-Agent'      => 'Mozilla/5.0 (Windows NT 5.1; rv:17.0) Gecko/17.0 Firefox/17.0)',
'Accept'          => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
'Accept-Language' => 'en-us,en;q=0.5',
'Accept-Encoding' => 'gzip, deflate')->as_string;

my @proxy_list=($parsing=~/(d{1,3}.d{1,3}.d{1,3}.d{1,3})/g);
print"@proxy_list\n";