Select Code to Download

$self->{$tag} = shared_clone($value);

$self->{ALWD_INFO}{$tag} = shared_clone($value);

sub set_alwd_info {
    my ($self, $tag, $value) = @_;
...
    lock($self);
    $self->{ALWD_INFO} = \%temp;
}

sub set_alwd_info {
    my ($self, $tag, $value) = @_;
...
        $self->{ALWD_INFO}{$tag} = shared_clone($value);
    }
}