Select Code to Download

sub consensus {
  ... # code from before, until:
...

  return \@cons;
}

sub consensus_to_string {
  my $con = shift;
...

  return $str;
}