#!/usr/bin/perl --
use strict;
use warnings;
use WWW::Mechanize 1.73;

my $vroom = q{http://perlmonks.org/images/vroom_sm.gif};
my $file  = 'goner-vroom_sm.gif';

my $ua = WWW::Mechanize->new( qw/ autocheck 1 show_progress 1/ ) ;

$ua->get( $vroom, ':content_file' => $file );

print "$file ", -s $file, "\n";
print "$file ", $ua->res->header('content-length'), "\n";
$ua->dump_headers;
__END__
** GET http://perlmonks.org/images/vroom_sm.gif ==> 200 OK
goner-vroom_sm.gif 2575
goner-vroom_sm.gif 2575
Connection: close
Date: Tue, 17 Feb 2015 00:38:00 GMT
Accept-Ranges: bytes
ETag: "a0f-453336d2dd3c0"
Server: Apache/2.2.29
Content-Length: 2575
Content-Type: image/gif
Last-Modified: Wed, 30 Jul 2008 01:10:47 GMT
Client-Date: Tue, 17 Feb 2015 00:39:50 GMT
Client-Peer: 216.92.34.251:80
Client-Response-Num: 1