perlではtry-catchのかわりにevalを使うそうですが、
例外クラスを使い分けるにはどうしたらいいですか。
つまり
try { ... }
catch(FooException $ex) { ... }
catch(BarException $ex) { ... }
に相当するコードは、Perlではどうかきますか。