package Blubb;

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

sub DESTROY {
 print "DESTROY\n";
}

package MAIN;
use POSIX ();

my $b = Blubb->new;

POSIX::_exit(0);