package Blubb;

sub new {
   my $this = bless {a=>42};
   #  $this->{circular} = $this;
}

sub DESTROY {
   warn "DESTROY\n";
}

package MAIN;

my $b = Blubb->new;




END {
   warn $b->{a};
   warn "END\n";
}

##</code><code>##

42 at c:/tmp/pm/destruct_end.pl line 20.
END
DESTROY