sub Foo::DESTROY { my $self = shift; print "destroying $self\n" };
my $foo = bless {}, "Foo";
$foo->DESTROY;
print "foo is $foo\n";

##</code><code>##

destroying Foo=HASH(0x4759c)
foo is Foo=HASH(0x4759c)
destroying Foo=HASH(0x4759c)