Antes de mais nada, PeerAddr deve ser IP address ou o nome de anfitrião do usuário, de que escuta o porto 15650, não trajeto ao programa, como
meu $sock = IO novo:: Soquete:: INET (=> “192.168.1.1” de PeerAddr, => “15650” de PeerPort, => Proto “tcp ");