Bonjour à tous

Bon voila, je suis en stage et je doit faire un programme en PERL pour éteindre un groupe de serveurs. Moi le perL je croyait que c'était des bijoux mais NON c'est un langage de programmation . J'ai donc fait cette fameuse découverte hier. et malgré moi j'ai fait ce mini programme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/usr/local/bin/perl
 
#ce programme va se connecter à un serveur telnet et executer une commande 
#il va éteindre le serveur cible
# pour le test nous allons éteindre une machine windows xp 
 
 
 
 my $username="comtest"; 
 my $passwd="comtest"; 
 
@hosts=('Zorro','Checknorris');
 
#ne vous soucier pas des noms!!!
 
 my $telnt = new Net::Telnet (Timeout=>undef) or die "ne peut pas se connecter!"; 
 
my $lvar;
my $i=0;
 
foreach $lvar(@hosts)
{
 
 printf("s'apprete à éteindre machine: %s \n", $i);
 $telnt->open($HOST);
 $telnt->login($username, $passwd); 
 
 
 @lines = $telnt->cmd("shutdown -s -t 0");
 
 print join(' ',@lines);
  $i++;
}

ce que je veut en fait c'est quelqu'un puisse me corriger ce qu'est cencé etre cette chose enfin ce morceau de programme. Car ça ne fonctionne pas

MERCI d'avance!!