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!

##</code><code>##

my $status;
eval '$status = 3+4; 1' or warn $@||"unknown error";