#!/usr/bin/perl -w
                                                                                                                 
use strict;
use WWW::Mechanize;
use Devel::Size qw(size total_size);
use Data::Dumper;
                                                                                                                 
my $agent = WWW::Mechanize->new();
                                                                                                                 
for(my $i = 0; $i < 5; $i++) {
  $agent->get(qq(http://www.yahoo.com));
  print "agent size = ".total_size($agent)."\n";
}
                                                                                                                 
print Dumper($agent);