帮忙查看 Net::Telnet之后，再telnet另一台主机发指令，但是没有结果返回

我的代码的目的是telnet到一台主机，然后再telnet到另一台主机发指令，之后取到命令返回的结果。但是我得到的结果一直为1，请教各位大虾是什么问题：
具体代码如下：

use Net::Telnet;
my $output_file = "1111_txt";

print "$output_file\n";
open(WRITE,">>$output_file" or "can't open the file：$dest_file\n";
eval
{
        $omc_telnet = new Net::Telnet(Timeout =>6,Prompt => '/[\$%#>;]$/');
        $omc_telnet->open("10.1.1.1"||die("Open failed!\n";
                $omc_telnet->login("user","passwd"||die("Telnet failed!\n";
};
if($@)
        {
                        LogMsg::Trace ("Error: $@\n";
                        return -1;               
        }
else
        {       
                        LogMsg::Trace ("Connect success";
                    eval
                  {
                                       $omc_telnet->cmd("telnet 132.1.1.1 6000";
                                $omc_telnet->cmd("lgip=\"user\",pwd=\"passwd\";";
                                                           
                  };
                  if($@)
                        {
                                        LogMsg::Trace ("Error: $@\n";
                                        return -1;               
                        }
                        else
                        {       
                                        LogMsg::Trace ("Connect success");
                                                            my @data = $omc_telnet->cmd("ls -lrt");
                                                                  foreach  my $line( @$data ){
                                                                                  
                                                          
                                                                                   print WRITE "$lines\n";
                                                          }
                                                  }
}
在第一次telnet的时候我打印print  $omc_telnet->login("user","passwd")；返回1
第二次telnet 打印每次的指令返回的叶都是1。
请各位大虾帮忙看看为什么$omc_telnet->cmd返回的不是指令返回的结果，而是1（是不是返回的是指令执行的状态？还是有什么问题）

还有一点不是很清楚，Prompt => '/[\$%#>;]$/'的时候可以连接数据库，但是我使用默认的Prompt => '/[\$%#><:]\s*$/'时候，总是报连接超时，Prompt有什么限制吗？