perl - 当客户端与 xinetd 的连接终止时，如何使 perl 脚本退出或结束？

Question

我有一个使用阻塞 IO（sysread 和 syswrite）的 perl 脚本。

该脚本连接到一个在 TCP 端口上侦听的 xinetd 服务器。我听说 xinetd 在客户端断开连接时会发出 SIGHUP，所以我尝试了：

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

但是没有用，运行ps -A时有很多挥之不去的进程。

有任何想法吗？