use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get("http://www.google.com");
print $mech->content();

##</code><code>##

<H1>ERROR</H1>
<H2>Cache Access Denied</H2>
<HR noshade size="1px">
<P>
While trying to retrieve the URL:
<A HREF="http://www.google.com">http://www.google.com</A>

<P>
The following error was encountered:
<UL>
<LI>
<STRONG>
Cache Access Denied.
</STRONG>
</UL>
</P>

<P>Sorry, you are not currently allowed to request:
<PRE>    http://www.google.com</PRE>
from this cache until you have authenticated yourself.
</P>

<P>
You need to use Netscape version 2.0 or greater, or Microsoft Internet
Explorer 3.0, or an HTTP/1.1 compliant browser for this to work.  Please
contact the <A HREF="mailto:root">cache administrator</a> if you have
difficulties authenticating yourself or 
<A HREF="http://squid.YOURDOMAINHERE.com/cgi-bin/chpasswd.cgi">change</a> your default password.
</P>
<BR clear="all">
<HR noshade size="1px">