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 );