Select Code to Download

$self = bless {
  'intpref'    => $intpref,
  'prefix'     => $prefix,
...
  'cookie_jar' => "lwpcookies.txt",
  %hash,
}, $class;

sub new {
    my $class = shift;

...

    $self;
}