Select Code to Download

sub new{
        my $class = shift;    
...
        }
        return bless { %opts }, $class;       
}

sub execute_command{
   my $self = shift;
...
   $self->{ $wanted_command }->( $self, @whole_data );
}