root@F101-8:~# uname -a
Linux F101-8 2.6.10_mvlcge401-atca_f101 #25 Thu Jun 29 16:07:19 CDT 2006 ppc GNU/Linux
root@F101-8:~# 
root@F101-8:~# 
root@F101-8:~# cat test.pl
#!/usr/bin/perl5.8.4

use Expect;

my $timeout = 5;
$session = new Expect;
#$session->exp_internal(1);
#$session->debug(3);
$session->spawn("ssh 10.20.30.40 -l root\n");
$session->expect($timeout, "password:");
$session->send("pirates\n");
$session->expect($timeout, "F101");
$session->send("\n");
$session->expect($timeout, "F101");
$session->send("exit\n");
$session->expect($timeout, "F101");
root@F101-8:~# 
root@F101-8:~# 
root@F101-8:~# ssh 10.20.30.40 -l root
root@10.20.30.40's password: 
Last login: Sun Jul 30 14:17:37 2006 from 10.17.194.85

-------------------------------------
Build View:              tmproot_r6.1_dev-633914
ABC Version:             GGGGG-ABC_R6.1_REL-02 
HHH Version:             HHH-BASE_R3.3_REL-01.01
NNNN Install Date:       Fri Jul 28 22:38:37 UTC 2006
-------------------------------------
root@F101-8:~# exit
logout
Connection to 10.20.30.40 closed.
root@F101-8:~# 
root@F101-8:~# exit
logout
Connection to 10.20.30.40 closed.
groovy::testuser>