Select Code to Download

                                                           
    sub foo_a {                                                  
        my ($self, $arg) = @_;                                   
...
        my ($self, $code) = @_;                                  
        $self->{'foo_code'} = $code;                             
    }

                                                           
    $obj->foo_set(sub { # process $_[1] });