use strict;
$|++;

use LWP::Simple qw($ua get);
$ua->proxy('http', 'http://myproxy');

# Skip nodes 0 and 17...
# for my $id (1..16, 17..50) { Ooops...
for my $id (1..16, 18..50) {
    my $url = "http://www.perlmonks.org/?node_id=$id";
    print "$url: ";
    my $content=get($url);
    if ( ($content) && ($content!~/You don.t have access to that node./) )
	{ print "Good\n"; last } else { print"\n" };
    sleep 2;
}