[Cascavel-pm] Roteador

[vivan em dim.fm.usp.br]

Oi,

To fazendo um script pra entrar em um roteador e realizar alguns comandos
simples. O script roda legal, mas me dah o erro "pattern match read eof"
no final da execucao. Alguem sabe me dizer pq e como me livro deste erro?

#!/usr/bin/perl

use Net::Telnet ();

########## IP LOGIN E SENHA ##############
$ip="10.10.10.10";
$login="teste";
$password="teste";
$enable = "teste";
#######################################

$t = new Net::Telnet (Timeout => 10,
                      Input_log =>'./input.txt');
$t->open($ip);

$t->print ($login);
$t->print ($password);

$t->print('ena');
$t->print($enable);
$t->print('terminal length 0');
$t->print('sh conf');
$t->cmd('exit');

$t->close;

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