package Blubb;                                                                  

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

sub DESTROY {
 warn "DESTROY\n";
}

package MAIN;
#{
   my $b = Blubb->new;
#}

END {
 warn "END\n";
}

##</code><code>##

DESTROY
END