Select Code to Download

    sub set_species {
        my ($self, $species) = @_;
...
        my ($self) = @_;
        $self -> {species};
    }  

    my $species;
    sub set_species {
...
    sub get_species {
        $species;
    }