sub Foo::DESTROY { print "foo::DESTROY called\n"; }
{
    my $x = do {my $var;  bless sub {$var}, 'Foo'; };
}
__END__
foo::DESTROY called