[Cascavel-pm] Net::Telnet

[vivan em dim.fm.usp.br]

Oi,

Alguem pode me dar um help no modulo Net::Telnet? Estou tentando
utiliza-lo para acessar um router, mas sem sucesso... Onde estou errando?

#!/usr/bin/perl
use Net::Telnet ();

########## LOGIN E SENHA ##############
$login="burps";
$password="bleargh";
#######################################

$t = new Net::Telnet (Timeout => 10,
                      Prompt => '/rtb0101\>/');
$t->open("10.22.4.15");

$t->login($login, $passwd);
@lines = $t->cmd("sh conf");
print @lines;


Tks,
Adriano.

--------------------------
Esta mensagem foi verificada
pelo sistema de antivírus DIM e
acredita-se estar livre de Virus.
Virus data file v4356 created May 02 2004