Interrogation de Telnet

Bonjour,
Je suis actuellement a la recherche d'infos sur la possibilite d'interroger
plusieurs serveurs de news avec une liste de newsgroup comme argument et un
affichage "tableau".
Par exemple :
Serveur1 Serveur2 Serveur3
newsgroup1 100 100 100
newsgroup1 150 150 150
newsgroup1 102 102 102

Les valeurs 100, 150 et 102 sont le resultat de la commande group sur un
serveur de news.
Exemple :
group fr.test
211 2169 176138 =>178306 fr.test

Donc j'ai deja fait un script avec une liste de serveur dans un tableau mais
seulement un newsgroup en argument ...
Comment faire le reste ??? Si vous avez une idee ....

Georges

#!/usr/bin/env perl

# Utilisation du module Telnet pour perl
use Net::Telnet;

# Verification si il existe au moins un argument sinon on affiche
displayUsage
if ($#ARGV < 0){;
&displayUsage;
}

# Sous routine d'affiche du Usage
sub displayUsage {
print "Usage: ./news.pl group\n\n";
print " Where group is newsgroup to test\n";
print " Exemple :\n\n";
print " ./news.pl fr.test\n\n";
exit 1;
}

# On passe l'argument de la ligne de commande dans une variable
$group=$ARGV[0];

# Tableau des serveurs
@server=("server01","server-02","server03");

# Boucle D'interrogation basee sur les serveurs
# Creation d'une connexion telnet et on passe les commandes a chaque
serveurs
foreach $serv (@server) {
$telnet = new Net::Telnet (Telnetmode => 0, Port => 119, Timeout => 10,
Errmode => 'die');
$telnet->open($serv);
$conn=$telnet->getline;
$telnet-> print ('mode reader');
$cmd=$telnet->getline;
$telnet-> print ("group $group");
$xover=$telnet->getline;
# Condition : si la ligne commence par 411 on affiche une erreur et on sort
if ($xover =~ /^411/){
print "Ce group n'existe pas, vérifier votre saisie\n\n";
exit 1;
}
# Affichage des resultats
print "$serv\n";
print "$xover\n";
$telnet->close
};