Select Code to Download

sub submit_request {
    my ($code_ref, ...) = @_;
...
    ++$registered{ $callback_id }[0];
    _submit_request($callback_id, @_);
}

sub on_response {
    my $callback_id = shift;
...
        or delete( $registered{ $callback_id } );
    $code_ref->(@_);
}