#!/usr/bin/env perl
use 5.014;
use warnings;
use Expect;
my $exp = Expect->new;
$exp->spawn('ssh tak');
$exp->expect(10, '~$ '); # prompt. using ssh keys so no password
$exp->send("ls\n");
$exp->expect(10, '~$ ');
$exp->send("exit\n");
$exp->soft_close();
__END__
Output:
zengargoyle@tak:~$ ls
... ls output ...
zengargoyle@tak:~$ exit
logout
Connection to tak closed.