#!/usr/bin/perl
use strict;
use warnings;
use URI::URL;
use LWP::UserAgent::FramesReady;

my $ua = new LWP::UserAgent;
# neither of the following have any effect
#$ua->agent('Mozilla/5.0');
#$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)');

my $url = URI->new('http://www.takingbackthecountry.com');
my $http_request = new HTTP::Request('GET', $url);
my $response = $ua->request($http_request);

if ($response->is_success and $response->isa('HTTP::Response::Tree'))
{
    print "ok\n";
}
else
{
    print $response->content;
}
exit;