root@F101-8:~/sgopala1# 
root@F101-8:~/sgopala1#  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");
$session->expect($timeout, "pirates:");
$session->send("motorola\n");
$session->expect($timeout, "F101");
$session->send("\n");
$session->expect($timeout, "F101");
$session->send("exit\n");
$session->expect($timeout, "F101");
root@F101-8:~/sgopala1# 
root@F101-8:~/sgopala1# 
root@F101-8:~/sgopala1# 
root@F101-8:~/sgopala1# perl test.pl
Spawned 'ssh 10.20.30.40 -l root'
        spawn id(3)
        Pid: 31038
        Tty: /dev/pts/2
        Expect::spawn('Expect=GLOB(0x1028abc8)', 'ssh 10.20.30.40 -l root') called at test.pl line 9
Starting EXPECT pattern matching...
        Expect::expect('Expect=GLOB(0x1028abc8)', 5, 'pirates:') called at test.pl line 10
spawn id(3): list of patterns:
  #1: -ex `pirates:'


spawn id(3): Does `'
match:
  pattern #1: -ex `pirates:'? No.

Sending 'motorola\n' to spawn id(3)
        Expect::print('Expect=GLOB(0x1028abc8)', 'motorola\x{a}') called at test.pl line 11
Starting EXPECT pattern matching...
        Expect::expect('Expect=GLOB(0x1028abc8)', 5, 'F101') called at test.pl line 12
spawn id(3): list of patterns:
  #1: -ex `F101'


spawn id(3): Does `'
match:
  pattern #1: -ex `F101'? No.

Sending '\n' to spawn id(3)
        Expect::print('Expect=GLOB(0x1028abc8)', '\x{a}') called at test.pl line 13
Starting EXPECT pattern matching...
        Expect::expect('Expect=GLOB(0x1028abc8)', 5, 'F101') called at test.pl line 14
spawn id(3): list of patterns:
  #1: -ex `F101'


spawn id(3): Does `'
match:
  pattern #1: -ex `F101'? No.

Sending 'exit\n' to spawn id(3)
        Expect::print('Expect=GLOB(0x1028abc8)', 'exit\x{a}') called at test.pl line 15
Starting EXPECT pattern matching...
        Expect::expect('Expect=GLOB(0x1028abc8)', 5, 'F101') called at test.pl line 16
spawn id(3): list of patterns:
  #1: -ex `F101'


spawn id(3): Does `'
match:
  pattern #1: -ex `F101'? No.

root@F101-8:~/sgopala1#
root@F101-8:~/sgopala1# 
root@F101-8:~/sgopala1#