[완료]expect 관련

안녕하세요?

telnet 자동 접속을 위해 expect 를 사용중인데,

이 expect라는 것이 즉 어떤 동작을 기다리는 것만 되나요?

즉, Password:

이렇게 유저의 인풋을 기다르는 문장만 기다릴 수 있는거 같은데

왜냐하면 그냥 화면에 출력되는 문자를 expect()함수에 넣어놓으면 실행을 제대로 하지 못하네요.

아래 스크립트에서는 password 기다리는 부분은 잘 되는데
"security updates." 이 부분은 함수로 호출이 되지 않네요.
해결 방안이 있을까요?

제 스크립트입니다.
#!/usr/bin/perl
use Expect;

my $address = sprintf "telnet -l cho xx.xx.xx.xx %s", @ARGV[0];
my $exp = Expect->spawn($address);

my $timeout = 100;
my $timeout1 = 300;
$retry = 0;

$exp->expect($timeout,
[qr 'Password: $' => \&inputpassword],
[qr 'security updates.$' => \&control],
[qr '[#>\$] $' => \&mount],
[qr 'password for cho:$' => \&inputpassword],
[qr '[#>\$] $' => \&move_host],
[timeout => \&timeouterr],
[qr '[#>\$] $' => \&mount],);

sub control
{
my $lexp = shift;
if ($retry > 0)
{
die "control Error\n";
}
$lexp->send_slow($timeout1, "\cC");
$retry++;
exp_continue;
}

sub timeouterr
{
die "time error\n";
}

sub inputpassword
{
my $lexp = shift;
if ($retry > 0)
{
die "inputpassword Error\n";
}
$lexp->send("*******\n");
$retry++;
exp_continue;
}

sub mount
{
my $lexp = shift;
if ($retry > 0)
{
die "mount Error\n";
}
$lexp->send("sudo mount /host\n");
$retry++;
exp_continue;
}

sub move_host
{
my $lexp = shift;
if ($retry > 0)
{
die "move Error\n";
}
$lexp->send("cd /host/home/cho/benchmark1\n");
$lexp->send("source shrc\n");
$lexp->send("sudo ln -s /host/home/cho/benchmark1 /home/cho/benchmark1\n");
$retry++;
exp_continue;
}