package Foo;

my @objects;

sub new {
	my $self = bless {}, shift;
	push @objects, $self;
	return $self;
}

sub DESTROY { print "bye bye" }

package main;

{
	my $foo = Foo->new;
}

ETERNITY: while(1) {
	# DESTROY is NOT called yet.
}