inetd 起動のスクリプトでの STDERR の取扱い

perl - warn()とdie()の振る舞いを変更する 昨日最後にちょろっと書いた部分を dankogai さんに取り上げられて、朝からびっくりしました。
ブックマークコメントにも書いたのですが、僕は inetd 経由の起動スクリプトでは専ら STDERR をファイルに開き直しています。

open(STDERR, ">>", $file);

とかで。inetd 経由で起動されるスクリプトは大体寿命があまり長くないし、あとこれは dankogai さんと同じ理由なのですが、$SIG{__WARN__} をフックしても誰かが print STDERR すると意味ナッシングなので。
あまり行儀が良くないのはわかっているので他の良い方法があれば誰か教えてほしいです。