Select Code to Download

 $exp->expect($timeout,
             [ qr/\(yes\/no\)\?/i, sub { my $self = shift;
                                      $self->send("yes\r");   <----unk
+nown host
...
                                       }],

            );

$exp->expect($timeout,
             [ qr/#/i, sub { my $self = shift;
...
                                       }],                          un
+less ($exp->expect($timeout, -re , "~")){} ;

            );

#!/usr/bin/env perl
use strict;
...
#                 $exp->send("time\n");

}