package foo;  ... $f=Foo->new(); sub DESTROY {Foo->new()}