#!/usr/bin/perl
use LWP::UserAgent;
$ua=LWP::UserAgent->new;
$ua->timeout(10);
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
$url='http://www.digitalcybersoft.com/ProxyList/fresh-proxy-list.shtml?CONNECT';
$page=$ua->get($url);
open(LOAD,">./proxy.txt");
while($page->content=~m/(\d+\.\d+\.\d+\.\d+)\:(\d+)/)
{ 
print LOAD $1.":".$2."\n";
print $1.":".$2."\n";
}