Select Code to Download

sub foo {
    my $self = shift;  # oops, forgot this line before
...
    }
    return $self->{foo};
}