#!/usr/bin/perl

use WWW::Mechanize;
use Devel::Size qw(size total_size);

my $agent = WWW::Mechanize->new();

while (1) {
  $agent->get(qq(http://www.yahoo.com));

  print "agent size = ".total_size($agent)."\n";
}