Select Code to Download

sub fetch
{
...
    my $resp         = $ua->get( $uri );
    ...
}

use Moose;
has 'ua', is => 'ro', default => sub { LWP::UserAgent->new };
...

    ...
}