use strict;
use WWW::Mechanize;
use HTML::Strip;

my($url) = 'http://www.google.co.uk';
my $mech = WWW::Mechanize->new(autocheck =>1);
my $hs = HTML::Strip->new();

$mech->agent_alias('Linux Mozilla');

$mech->get($url) or die "Page $url can't be reached";
print "Made it past the url test";
my $page = $mech->content;
my $clean_text = $hs->parse( $page );
$hs->eof;
print $clean_text;