use WWW::Mechanize;
use LWP::Debug;
my $mech = WWW::Mechanize->new();
LWP::Debug::level("+");
$mech->get("http://www.cnn.com/");
print length($mech->content), "\n";