perl - xinetd へのクライアント接続が終了したときに perl スクリプトを終了または終了させるにはどうすればよいですか?

Question

ブロッキング IO (sysread および syswrite) を使用する perl スクリプトがあります。

このスクリプトは、TCP ポートでリッスンしている xinetd サーバーに接続されています。クライアントが切断されたときに xinetd が SIGHUP を出すと聞いたので、次のようにしてみました:

$SIG{HUP} = sub { die; };

ps -Aを実行すると、多くのプロセスが残っています。

何か案は？