#!/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__
[download]

5810 at test.pl line 10.
5810 at test.pl line 11.
** GET http://cpan.org/ ==>  13% 21% 46% 71%100%20
+0 OK
5810 at test.pl line 14.
CPAN at test.pl line 15.
[download]