Perl脚本无法识别Telnet提示

Question

我有一个perl脚本连接到telnet服务器并在其上运行一些基本命令。这是我正在使用的脚本，它工作正常。

my $host =  '192.186.0.2';
print ("\nConnecting to server ".$host); 
$telnet->open($host);
$telnet->waitfor('/login: $/i'); 
$telnet->print('admin'); 
$telnet->waitfor('/Password: $/i'); 
$telnet->print('password'); 
$telnet->waitfor('/\$ $/i'); 
my @output = $telnet->cmd('ls --color=none');
print ("@output\n");

但服务器上的提示看起来像这样。

PROMPT>

所以我修改了代码来阅读。

$telnet->waitfor('/PROMPT> $/i'); 

但是我得到了模式匹配超时错误。我该如何解决这个问题？