Это больше проблема TCP, чем проблемы Perl.
Такие события, как отключение кабельного / интернет-соединения, не приводят к событию TCP.Таким образом, вы должны написать TCP-соединение, чтобы убедиться, что оно все еще подключено.Вы можете добавить сообщение ping / echo для единственного члена, чтобы узнать, что соединение все еще доступно.