aix上的expect问题

set HOST [lindex $argv 0]
set PASSWORD [lindex $argv 1]
set SAVEFILE [lindex $argv 2]
spawn ssh $HOST
expect {
"(yes/no)?" {send "yes\r";exp_continue}
"password:" {send "$PASSWORD\r"}
}
sleep 2
send "uname > $SAVEFILE\r"
sleep 1
send "echo \$HOSTNAME >> $SAVEFILE\r"
sleep 1
send "echo \$CUBRID >> $SAVEFILE\r"
sleep 1
send "exit\r"
expect eof

这段代码在linux运行正常，在aix运行不对，为什么啊？有人知道吗？