无法在perl中的telnet会话中获取命令输出的错误

Question

我正在使用构建某些应用程序的命令列表。在执行期间，在特定命令之后，perl脚本退出而没有任何错误。我已启用inputlog和outputlog以及dumplog，但所有内容都没有显示。我怎样才能知道错误是什么。

我的代码如下：

$inputlog = "buildlogfile.log";
$dumplog = "buildlog_user.log";
$outputlog = "buildoutputlog_user.log";
$t = new Net::Telnet (Timeout => undef,Errmode=>'return', Dump_Log => "$dumplog", Input_log  => "$inputlog", Output_log => "$outputlog");
    $string = "bash-3.0";
    $t->cmd("ccd <directory");
    $t->cmd("cgit clone git@refsw/rew.git");
    $t->cmd("cd rew");
    $t->cmd("c./rew init  base_view -detached");
    $t->cmd("ccd base_view");
@line10=$t->cmd('git checkout base/git_rew') or die "Could not git checkout:$!";
print "Line10 is:@line10\n";

print "Last element is:$line10[-1]\n";

if($line10[-1] eq $string )
{
         print "Bash prompt appeared after git checkout\n";
         goto rk2;
}
else{
      print "Error getting Bash prompt after git checkout\n";
      close status;
      goto rk2;
}
rk2:

在if else语句代码行之后，有更多行命令，但脚本在checkout命令后退出。请帮忙。