in reply to Catch loss of communication

you probably need to install hooks for any relevant signals. e.g.:
local $SIG{PIPE} = sub { ... };

[download]

language is a virus from outer space.

In Section Seekers of Perl Wisdom