Méthode de communication avec le protocole TCP

Author:

use IO::Socket;

# Envoi de message
$server->send($message_a_envoyer, $flags)
    or die "Erreur: