eval {
   local $SIG{PIPE} = sub {die "SIGPIPE" };
   print $socket "Client msg\n";
};
warn "lost server $@\n" if $@;