Обсуждение статьи тематического каталога: Описание Perl модуля NetTelnet (perl telnet module)

Ссылка на текст статьи: http://www.opennet.me/base/dev/perl_net_telnet.txt.html

• Описание Perl модуля NetTelnet (perl telnet module),laserdance, 10:36 , 05-Апр-07
• Описание Perl модуля Net::Telnet (perl telnet module),John, 12:46 , 31-Янв-09
• Описание Perl модуля Net::Telnet (perl telnet module),max, 15:07 , 10-Авг-09
• Описание Perl модуля Net::Telnet (perl telnet module),dimongl, 12:51 , 21-Ноя-12

а можно сделать так, чтобы waitfor('строка') ждал одну из нескольких задаваемых строк, а не одну?

регулярное выражение, чем не устраивает?

Подскажите ктонить плиз!
Есть такой код:
#!/usr/bin/perl
use Net::Telnet ();
$t = new Net::Telnet;
$t->open("10.0.0.1");
$t->waitfor('/PASSWORD>.*$/');
$t->print("123");
$t->print("logout");
$t->close;
exit;

при этом ругается вот так
pattern match read eof at ac.pl line 6

не подскажите в чём проблема?

Можно так
$t->waitfor(Match => '/PASSWORD>.*$/',Timeout => 5);