Select Code to Download

sub new {
    my $class = shift;
...
    bless $self, $class;
    $self; # returns $self (blessed hashref) 
}

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