use Expect;

my $exp = new Expect;
$exp->raw_pty(0|1);
$exp->log_stdout(0);
$exp->spawn("ssh","servername","ls /");
$exp->expect(2,"-re","connecting");
$exp->send("yes\n");
$exp->expect(10,"-re","password");
$exp->send("password\n");
$exp->expect(0);
$read = $exp->before();
$exp->soft_close();
$exp->log_stdout(1);
print $read;