use warnings;
use strict;

sub Foo::DESTROY { eval {} }

eval {
	for (bless {}, "Foo") {
		print "Hello";
		die "KABOOM";
	}
};
print "<$@>\n";  # Where's the kaboom? There was supposed
                 # to be an earth-shattering kaboom!