Select Code to Download

$a_ref_to_the_object = Class->new;

%$a_ref_to_the_object = %{Class->new};

sub retarget_ref {
    my ($old, $new) = @_;
...
    eval { @$old = @$new }; $@ or return;
    eval { %$old = %$new };
}