Select Code to Download

sub new {
        my $proto = shift;
...
        bless ($self, $class);
        return $self;
}

sub file {
        my $self = shift;
...
                $self->{file} = shift;
        }
}

sub _common {
        my $self = shift;
...
                $self->{$key}->($self) if defined $self->{$key};
        }
}

sub _common {
        my $self = shift;
        my $key  = shift;
# ...

sub pre {
        my $self = shift;
        $self->_common(pre => @_);
}
# etc.

        $self->pre();
        open my $fh, '<', $self->{file} or croak "could not open $self
+->{file}: $!";
...
                ++$self->{count};
        }
        $self->post();

                my %data = $self->loop();
                @{$self->{hash}{keys %data}} = values %data;
                $count += scalar keys %data;