<P>Bom dia a todos da lista....</P>
<P><BR>Gente, estou começando a desenvolver uma aplicação cliente/servidor, a primeira que estou fazendo :-)&nbsp;em plataforma win32, porém estou com uma duvida. O servidor parece estar rodando ok,&nbsp; pois o executo e o mesmo fica aguardando a conexão. </P>
<P>Estou iniciando o desenvolvimento&nbsp;de um programa que fara determinadas funções dependendo do comando recebido, mas isto é coisa para o futuro.</P>
<P>O erro s da, ao que parece quando o cliente tenta enviar a mensagem de teste, me da a mensagem que nao foi possivel chamar o metodo send, ai, a duvida, pois, não sei o que fazer....</P>
<P>&nbsp;segue o código abaixo. Caso alguma sugestão, sera de bom agrado</P>
<P>servidor.pl<BR>=================<BR>#!c:\perl\bin\perl.exe<BR>#SERVER.PL</P>
<P>use IO::Socket::INET;<BR>print "Servidor Sockt TCP em Perl\n";<BR>$server = IO::Socket::INET-&gt;new(<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LocalAddr=&gt;"127.0.0.1",<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LocalPort=&gt;7000,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Proto=&gt;'tcp',<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Listem=&gt;10<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );<BR>$sock_client= $server-&gt;accept();</P>
<P>while( 1) {<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $sock_client-&gt;recv($data,1024);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ($data)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print "\n Recebido: ", $data, "\n";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp; }</P>
<P>cliente.pl<BR>====================</P>
<P>#!c:\perl\bin\perl.exe</P>
<P>#CLIENT EM PERL</P>
<P>use IO::Socket::INET;<BR>print "Cliente Socket TCP em perl";<BR>$client = IO::Socket::INET-&gt;new(<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PeerAddr=&gt;"127.0.0.1",<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PeerPort =&gt; "7000",<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Timeout =&gt; 60);</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while(1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $msg = "Mensagem de Teste";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print "Enviando: ",$msg,"";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if($client-&gt;send($msg))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print "Enviado com sucesso","n";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sleep(5);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<BR></P>