#!/usr/bin/perl --

use strict;
use warnings;

use WWW::Mechanize 1.54;

my $ua = WWW::Mechanize->new;
my $uri = URI->new('http://cpan.org/');
warn $ua->head($uri)->header('content-length');
warn $ua->res->header('content-length');
$ua->show_progress(1);
$ua->get($uri);
warn $ua->res->header('content-length');
warn $ua->title;

#use DDS;warn Dump($ua);

__END__