Select Code to Download

# perl tester-a.pl
Starting EXPECT pattern matching...
...
        eval {...} called at tester-a.pl line 20
        main::change_password('solarishost') called at tester-a.pl lin
+e 20
Pid 4754 of spawn id(3) terminated, Status: 0xFF00

vi /var/tmp/expect_script.log 


...
^[[01m[root@solarishost ~ ]^[[m # exit^M
logout^M
$