Select Code to Download

sub generate_hash {
    my $self;
...
    }
    my ($i, $j, $k) = @_;    
}

sub new {
    my $class = shift;
...
    my $self = shift;
    # Do stuff with @_
}