提示符变更的问题[求助]

提示符变更的问题[求助]
请各位不吝赐教。

sub setCLI {
$t = new Net::Telnet (Timeout => 10,
Telnetmode => false,
Prompt => ' m/(->)/i');
$t->open("192.168.1.1");
$t->login($username, $passwd); #此时的提示符"wlan[0,0]->"
$t->cmd("cli"); #此时提示符会变成"AA123456>"，所以在这行执行时会出现timed-out
$t->login($cliUser,$cliPasswd);#此时程序已经跳出，没有执行到这行
}

请问如何处理，才能顺利的执行下去，谢谢