[debian-users:20185] Net::Telnet について

[末木 完治 <kanchi@xxxxxxxxxxxxx>]

末木@KISNetと申します。

現在、Net::Telnetを使用して下記のようなperlスクリプトを書いたのですが、
いざ起動してみると
login timed-out waiting for password prompt at test.pl line 11
というエラーが出てしまいました。debian poteto 2.2.4を使用しているので
すがlibnet-perlのパッケージの問題かとも思い、一旦libnet-perlを削除して
から、別途取得したNet-Telnet-3.01をインストールしてみたのですが、変化は
ありませんでした。
現在、Telnet.pmに手を加えたりして試しているのですが、なにぶんperlやLinux
の知識が乏しい私では・・・(T_T)。
何か情報がございましたら、お教え願えないでしょうか。
よろしくお願いいたします。

＜稼動環境＞
OS: Debian GNU/Linux poteto 2.2.4 (linux 2.2.13)
perl: 5.005.03
Net-Telnet: 3.01

＜スクリプト＞:test.pl
#!/usr/bin/perl
use strict;
use Net::Telnet;

my $host = "localhost";
my $login = "user-id";
my $password = "xxxxxxxxxx";
my $command = "ls";

my $telnet = Net::Telnet->new( Host => $host );
$telnet->login( $login, $password ) || die "can not login";

my @result = $telnet->cmd( $command );
$telnet->close;

foreach ( @result ) {
    print;
}

exit;

*=======================================*
   http://www.kis-net.ne.jp/user/kanchi/
   mailto:kanchi@xxxxxxxxxxxxx
*=======================================*