# perl tester-a.pl
Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, 'ARRAY(0x1a317770)', 'ARRAY(0x1a3177c0)') called at tester-a.pl line 32
        main::change_password('solarishost') called at tester-a.pl line 20


  
Password: Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, '$') called at tester-a.pl line 48
        main::change_password('solarishost') called at tester-a.pl line 20
<code>
Last login: Wed Apr  8 10:32:54 2015 from mycomputer.

$ Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, 'Password:') called at tester-a.pl line 50
        main::change_password('solarishost') called at tester-a.pl line 20
su - root
Password: Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, '#') called at tester-a.pl line 52
        main::change_password('solarishost') called at tester-a.pl line 20


[root@solarishost ~ ] # Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, '#') called at tester-a.pl line 54
        main::change_password('solarishost') called at tester-a.pl line 20
hostname
solarishost
[root@solarishost ~ ] # Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, '#') called at tester-a.pl line 56
        main::change_password('solarishost') called at tester-a.pl line 20
uptime
  1:59pm  up 10 day(s), 14:43,  4 users,  load average: 5.19, 5.16, 4.90
[root@solarishost ~ ] # Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, 'New Password:') called at tester-a.pl line 58
        main::change_password('solarishost') called at tester-a.pl line 20
passwd amagana
New Password: Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, 'Re-enter new Password:') called at tester-a.pl line 60
        main::change_password('solarishost') called at tester-a.pl line 20

Re-enter new Password: Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, '#') called at tester-a.pl line 62
        main::change_password('solarishost') called at tester-a.pl line 20

passwd: password successfully changed for amagana
[root@solarishost ~ ] # Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x1a317160)', 60, '$') called at tester-a.pl line 64
        main::change_password('solarishost') called at tester-a.pl line 20
exit
logout
$ Closing spawn id(3).
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 1431
        Expect::hard_close('Expect=GLOB(0x1a317160)') called at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 1621
        Expect::DESTROY('Expect=GLOB(0x1a317160)') called at tester-a.pl line 20
        eval {...} called at tester-a.pl line 20
        main::change_password('solarishost') called at tester-a.pl line 20
Pid 4754 of spawn id(3) terminated, Status: 0xFF00