请问一个telnet模块Prompt参数的问题

use Net::Telnet;
my    $t = new Net::Telnet (Timeout => 10, Prompt => '/[\$%#>] $/');
         $t->open("$host");
         $t->login($user, $pass);
my    @lines = $t->cmd("who");

老是提示：timed-out waiting for password prompt at F:\test.pl line 25
perl部署在XP连接远程的Linux

在dos下telnet是没问题的。应该就是Prompt设置的问题，请问连linux的话该参数该如何设置呢。
登陆linux后，显示的是： etl1@etldev:/gmcc/gmcc_dm1/etlauto>

谢谢各位大虾解答！

顶一下，别沉了啊。

'/[\$%#>] $/'中间的空格去掉