Select Code to Download

[Original code deleted; see update below]

sub get_cog {
  my ($self) = @_;
...
    }
  }
}