Méthode de communication avec le protocole TCP

Author:
 
use IO::Socket;
 
# Envoi de message
$server->send($message_a_envoyer, $flags)
    or die "Erreur: