perl - Perl Net :: Telnetプログラムをデバッグするにはどうすればよいですか？

Question

Net ::TelnetPerlモジュールによる認証を必要としないLinuxボックスへのtelnetを自動化しようとしています。テストスクリプトは次のとおりです。

use strict;
use Net::Telnet;
my $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die',
                               host=> '10.104.20.200', port => 2004,
                             ); 
$telnet->print('ls');
my $output = $telnet->waitfor('/\$ $/i');
print $output;

このスクリプトを実行すると、次のエラーが発生します。

telnetPerl.plの7行目でパターンマッチがタイムアウトしました。 

ご覧のとおり、私はのすべての文字と一致していますwaitfor。しかし、そもそもtelnet接続が発生したかどうかは疑問です。