sub DESTROY { print "DESTROY\n"; die; print "HUH\n"; }
{ my $x = bless []; }
print "DONE\n";