eval
    {
    print $socket "Client msg\n";
    };
    warn "lost server $@\n" if $@;