# debug_test_DESTROY.pl

package Foo;

my $i;

sub new {
        return bless [++$i]
}

sub DESTROY {
        warn "destroying object <$_[0][0]>\n";
}

package Main;

$x = Foo->new;
$y = Foo->new;

print "hello";