例外処理

perlでの上手い例外処理ってないのかなぁ。
Errorモジュールは諸事情により使えないので、
他にないのかなぁとか思うんだけど、
ものすごくかったるいのしか思いつかない。
こんなの。
eval {
　　# 処理したい内容
}; if ($@) {
　　print $@;
}
なんか他にないのかなぁ。
C++やJavaみたいにtry-catchがあると便利なんだけ、
やはりErrorモジュールを使った方がいいだろうか・・・