[PERL] lecture/écriture sur une socket

#!/usr/bin/perl
use strict;use warnings;
use IO::Socket;

my $serveur = IO::Socket::INET->new(LocalPort => 10000,
                                    Type      => SOCK_STREAM,
                                    Reuse     => 1,
                                    Listen    => 10)
or die "Impossible serveur tcp sur le port 10000 : $@\n";

while (my $client = $serveur->accept()) {
  next if my $pid = fork;
  close($serveur);
  print "*** Debut de connexion ***\n";
  print $client "Bienvenu sur le SERVER !\n--- Je suis PID $$ ---\n";
  while( my $rep = <$client>) {
    print $rep;
    if ( $rep =~ /^QUIT/i) {
      close($client);
    }
    print "*** Fin de connexion sur PID $$ ***\n";
    exit;
  }continu {
    close($client);
  }
}
$SIG{CHLD} = 'IGNORE';
__END__

#!/usr/bin/perl
use strict;use warnings;
use IO::Socket;

my $socket = IO::Socket::INET->new(Proto    => "tcp",
                                   PeerAddr => "10.0.0.5",
                                   PeerPort => 10000)
or die "Failed : $@\n";

print "*** Debut de connexion ***\n";
while(my $reponse=<$socket>){
  print "Le serveur a dit : $reponse";
  print $socket "Au revoir SERVEUR!!!\n";
}
print "*** Fin de connexion ***\n";
__END__

lami20j@deb:~$ perl ccm.pl
*** Debut de connexion ***
Au revoir SERVEUR!!!
*** Fin de connexion sur PID 12855 ***

lami20j@debian:~$ perl ccm.pl
*** Debut de connexion ***
Le serveur a dit : Bienvenu sur le SERVER !
Le serveur a dit : --- Je suis PID 12855 ---
*** Fin de connexion ***
lami20j@debian:~$