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

##</code><code>##

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