Select Code to Download

 $expect->exp_internal(1);
$expect->log_file("/tmp/expect.log", "w");

 Starting EXPECT pattern matching...
 at /usr/local/share/perl5/Expect.pm line 597
...
    Before match string: `'
    Match string: `\033]0;user1@da3p-host-**-aut001:~\007\033[?1034h[u
+ser1@da3p-host-**-aut001 ~]$ '
    After match string: `'