Perl の eval で Java の try〜catch を実行したい

try〜catchを実行してみた

f:id:tigerii:20190812101514p:plain
perl try catch

$ perl MainA.pl 
before die
died in MainA
$ perl MainB.pl 
before die
died in ModuleB
died in MainB


参照したURL:
Perl の eval で Java の try〜catch を実現したい場合に注意すること
http://iwsttty.hatenablog.com/entry/20110406/1302073306