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;

##</code><code>##

Made it past the url test

iGoogle | Sign in Web      Images      News      Maps New!      Products      Groups      Scholar      more »      Advanced Search    Preferences    Language Tools Search:  the web  pages from the UK Advertising Programmes - Business Solutions - About Google - Go to Google.com ©2007 Google