例外 もしくは long jump 機構

python における

try:
   statements
except name:
   statements
else:
   statements

# try
eval {
   statement;
   croak(""); # raise
}
# except
unless ($@) {
   statements for exception;
}
# else 
else {
   statements;
}

catch throw のようなフレーズを使えるするようにする perl module もあるのですが、 素直に eval $@ 機構を使う方が分かり易いと思います。

最大の問題は、どれだけのエラー情報を呼出側に伝えるかという作りの部分で すね。なやましいです。

croak("__ERROR_$keyword__");
croak("__ERROR_$keyword__: $reason");

croak("__ERROR_cgi.insecure__: $reason");