expect

Не нашел инфы по нему, по этому пишу сюда...
Как реализовать такую вещь... надо чтобы скрипт содинялся по ssh и в заыисимости от ответа посылал бы определнную команду...
К примеру, простой скрипт для авторизации:
#!/usr/bin/perl
use Expect;
$swith = "10.0.0.1";

my $exp = Expect->spawn("ssh $swith");
        $exp->expect($timeout,
        [ 'UserName:' => sub {
                            $exp->send("admin\n");
                            exp_continue; }
        ],

        [ 'PassWord:' => sub {
                            $exp->send("admin\n");
                            exp_continue; }
        ],
'-re', qr'DES:'
);

$exp->send($timeout,"logout\n");
$exp->soft_close();

Надо добавить если в ответ на Expect->spawn("ssh $swith") придет не стандартный 'UserName:', а типа: 
The authenticity of host '77.247.215.100 (77.247.215.100)' can't be established.
RSA key fingerprint is 99:33:39:ee:76:77:bc:69:b6:15:39:25:8e:0e:cb:f7.
Are you sure you want to continue connecting (yes/no)?
то посылал бы команду 'yes' и т.д.!