원격지 로그 보기 expect 자동화

#!/usr/bin/perl

use Expect;

my $exp = Expect->spawn("ssh -l jonglae 192.168.50.20");

my $timeout = 100;

$retry = 0;

$exp->expect($timeout,

             [qr 'password: $' => \&inputpassword],

             [qr '[#>\$] $' => \&gethttpnum],

             [timeout => \&timeouterr],);

sub timeouterr

{

    die "NO Login\n";

}

sub inputpassword

{

    my $lexp = shift;

    if ($retry > 0)

    {

        die "Login Error\n";

    }

    $lexp->send("password\n");

    $retry++;

    exp_continue;

}

sub gethttpnum

{

    my $lexp = shift;

    $lexp->send("tail -f /var/log/syslog|grep cron\n");

    exp_continue;

}

서버 아이피와 , 
아이디,
비밀번호 입력 해주면 되고
perl script 로 작성 됐다.