package Blubb;                                                                  

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

sub DESTROY {
 print "DESTROY\n";
}

package MAIN;

my $b = Blubb->new;

END {
 print "END\n";
}

##</code><code>##

END
DESTROY