Réaliser un serveur TCP forké

En utilisant l'appel fork() sur un objet créé par le module IO::All, on peut très simplement réaliser un serveur TCP/IP sans se pré-occuper d'autre chose que du protocole en lui-même et en laissant à Perl le soin de se soucier de gérer le mécanisme de gestion des processus fils.

use IO::All;

my $server = io(':5555') -> fork -> accept;

while(my $line = $server -> getline) {
        chomp($line);
        $line =~ s/\r$//;
        if($line eq "quit") {
                $server -> print("Thank you\r\n");
                $server -> close();
                last;
        }
        print $line ."\n";
}