#!/usr/local/bin/perl
 
use IO::Socket;
 
my $remote_host="127.0.0.1";      # L'adresse du serveur
m