Select Code to Download

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

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