probleme "waiting for login prompt"

bonjour, la j'ai un petit problème de connections ,
bien sur en mettant le bon mots de password et username avec l'adresse ip du host et du nom , il me fait une erreur de type "waiting for login prompt"

et je ne sais pas d'ou ca peux venir et étant pas très doué encore en Perl je vous demande un peu d'aide :)

merci bien

Code:

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
 
#!/usr/bin/perl -w
use strict;use warnings;
use Net::Telnet;
use Net::SNMP;
use lib "C:/Perl/site/lib";
 
my $username="admin";
my $passwd="pwd";
my $community = " public ";
my $snmp_port = 161;
my $oid = " 1.3.6.1.4.1.318.1.1.12.1.5, 1.3.6.1.4.1.318.1.1.12.1.1 ";
my $host ="x.x.x.x";
my $nom="x.x.x.x";
 
my ($session, $error) = Net::SNMP->session(-hostname => $host,
				           -timeout => 3,
					   -retries => 1,
					   -community => $community,
					   -port => $snmp_port
					  );
 
my $telnet = new Net::Telnet (Timeout => 25,Prompt =>'/User Name : /', Dump_Log   => 'erreur.txt',) or die "la connection na pu aboutir:$!\n"; 
$telnet->open($nom);
$telnet->login($username, $passwd);