[Cascavel-pm] client/servidor

[Ricardo Stock]

Bom dia a todos da lista....

Gente, estou começando a desenvolver uma aplicação cliente/servidor, a primeira que estou fazendo :-) em plataforma win32, porém estou com uma duvida. O servidor parece estar rodando ok,  pois o executo e o mesmo fica aguardando a conexão. 
Estou iniciando o desenvolvimento de um programa que fara determinadas funções dependendo do comando recebido, mas isto é coisa para o futuro.
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....
 segue o código abaixo. Caso alguma sugestão, sera de bom agrado
servidor.pl
=================
#!c:\perl\bin\perl.exe
#SERVER.PL
use IO::Socket::INET;
print "Servidor Sockt TCP em Perl\n";
$server = IO::Socket::INET->new(
        LocalAddr=>"127.0.0.1",
        LocalPort=>7000,
        Proto=>'tcp',
        Listem=>10
        );
$sock_client= $server->accept();
while( 1) {
       $sock_client->recv($data,1024);
       if ($data)
       {
        print "\n Recebido: ", $data, "\n";
       }
   }
cliente.pl
====================
#!c:\perl\bin\perl.exe
#CLIENT EM PERL
use IO::Socket::INET;
print "Cliente Socket TCP em perl";
$client = IO::Socket::INET->new(
        PeerAddr=>"127.0.0.1",
        PeerPort => "7000",
        Timeout => 60);
        while(1)
        {
        $msg = "Mensagem de Teste";
        print "Enviando: ",$msg,"";
        if($client->send($msg))
        {
        print "Enviado com sucesso","n";
        sleep(5);
        }
        }
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080122/6e13fe61/attachment-0001.html