#!/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; ##

##


 
  
   
 
 
 
  
 
 
  <CENTER>
   <H2>
    Your browser does not support frames.  We recommend upgrading your browser.
   </H2>
   <br><br>
   Click <a href="http://takinthecountryback.com">here</a> to enter the site.
  </CENTER>