Select Code to Download

sub SetDestination {
   my ($self, $class) = @_;
...
   $self->{destination}->(...);
   ...
}

sub SetDestination {
   my ($self, $config) = @_;
...
   $self->{config}->destination(...);
   ...
}