sub DESTROY { die "No disassemble!" }
print "($_)\n"
    for  eval { my $x= bless {}; 1 }, $@;
__END__
(1)
()