あやしいわーるどはスーパーハカー揃いだと聞いたので質問します。

Perlで、あるサブルーチンを作りました。
成功すると1、失敗すると0を返すようなサブルーチンです。

ですが内部の動作はわりと複雑なので、どうして成功または
失敗したのかという理由も返したいのです。
使い方的には
    Function() || die "失敗の理由"; としたいです。
    open() || die "Can't Open Stream :$!"; と同じような感じで使いたい。

どうすれば簡単か教えてください。ペコリ。