use strict;
use warnings;
use diagnostics;

use LWP::Debug qw( + );
use WWW::Mechanize;

my $a   = WWW::Mechanize->new();
my $url = 'http://diveintomark.org/tests/client/http/307.xml';

$a->get( $url );

print length( $a->content );

##</code><code>##

LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking diveintomark.org for cookies
HTTP::Cookies::add_cookie_header: Checking .org for cookies
LWP::UserAgent::send_request: GET http://diveintomark.org/tests/client/http/307.xml
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::UserAgent::request: Simple response: Temporary Redirect
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking diveintomark.org for cookies
HTTP::Cookies::add_cookie_header: Checking .org for cookies
LWP::UserAgent::send_request: GET http://diveintomark.org/tests/client/http/307_redirect.xml
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 1003 bytes
LWP::UserAgent::request: Simple response: OK
1003