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

Question

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

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

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

但没有工作，运行ps -A时有很多挥之不去的过程。

有什么想法吗？