求助:目录切换问题

my $telnet = new Net::Telnet (Timeout => 10,Prompt => '/(.*)[\$%#> ](\s*)$/');
$telnet->open($ip1);
$telnet->login($username1,$passwd1);
my @rt=$telnet->cmd("cd $dir1";
print "------------start--------";
for($i=0;$i<@rt;$i++){
  print $rt[$i];
}
print "------------end--------";
my @lines =$telnet->cmd('echo $?');
if ($lines[0] == 1){
        print qq(<alarm source="size_of_dir" code="文件目录比较" time="$ENV{'TIME'}" grade="major">;
    print qq(文件目录比较dir1不存在);
    print qq(</alarm>\n);
    return 0;
}
my @lines1 = $telnet->cmd('du -sk');
#print $lines[0];
#print $lines1[0];
my @size = split(' ',"$lines1[0]",0);
$size1 = $size[0];
为什么切换不成功

为什么大家不把code放在</code>里面？
先把表情去掉吧，看着就烦~~

你之前发的那张帖子已经说了

cmd('echo $?');


要用双引号

不是这个问题 我已经在cd时候加""了 但是执行没有结果