#!/usr/bin/perl
use strict;
use XML::LibXML;
use LWP::UserAgent;
my $URL = "http://www.example.com/";
my $ua = LWP::UserAgent->new;
$ua->timeout(5);
my $parser = XML::LibXML->new;
$parser->recover(1);
for my $count (1..9) {
my $doc = do {
local *STDERR;
open STDERR, ">/dev/null";
$parser->parse_html_file("http://www.publicproxyservers.com/page$c
+ount.html");
};
for my $row ($doc->findnodes("//b[. = \"IP\"]/../../../tr")) {
my ($host, $port) = ($row->findvalue("td[1]"), $row->findvalue("td
+[2]"));
next unless $host =~ /^\d/;
print "$host:$port... ";
$ua->proxy("http", "http://$host:$port/");
my $res = $ua->get("http://www.example.com");
print $res->status_line, "\n";
}
}