sub set_species { my ($self, $species) = @_; $self -> {speceis} = $species; } sub get_species { my ($self) = @_; $self -> {species}; } #### my $species; sub set_species { $speceis = shift; } sub get_species { $species; }