my $self = bless {}, $class;
...
my $self->{agent} = WWW::Mechanize->new ();