Select Code to Download

sub new {
    my ( $class, $href ) = @_;
...
    );
    bless $self, $class;
}

use Scalar::Util qw( weaken );

...

    bless $self, $class;
}