use MyObject; my %data;eval{ print "Block START\n"; my $mo = MyObject->new(); $data{MYOBJ} = $mo; #←ここを削除 die "Error occurred\n"; print "Block END\n"; };print "error: $@" if($@);【実行結果】 Block START error: Error occurred 上記のス…