Select Code to Download

{   my $obj = Harf -> new;
    my $obj2 = $obj;
    undef $obj;    # Does *not* call DESTROY!
    ....
}   # Only here DESTROY is called, as also $obj2 goes out of scope.