#!usr/bin/perl
use strict;
use IO::Socket;
my $serv = IO::Socket::INET->new(
Localport => 6000,
Type => SOCK_STREAM,
Listen => 1) or die "+! Impossible de lancer le système d'écoute\n";
print "+ Système d'écoute lancé\n";
while (my $client = $serv->accept()) {
print "+ Une connection vas s'établir\n";
print $client "WTC1.0\n";
while(my $line = <$client>) {
print "+ Client say:".$line;
if ($line =~ /^QUIT/i) { close($client); }
}
print "+ La connexion à pris fin\n";
}