Select Code to Download

    my %ubackup = %udat;
    eval {
...
        %udat = %ubackup;
        die $@;
    }

sub DESTROY {
    my ($self) = @_;
...
        $self->_unbind;
    };
}

    local $@;
    eval {
        $self->_unbind;
    };