Select Code to Download

  sub choose {
    my $self = shift;
...
    }
    die "can't select an individual";
  }

  sub choose {
    my $self = shift;
...

    die "can't select an individual";
  }