Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                          die "Timeout waiting for $_lookfor.\n";
                  }
          }

Starting EXPECT pattern matching...
    Expect::expect('Expect=GLOB(0x835f7e0)', 5, '-re', 'password') cal
+led at ./example.pl line 30
...
  pattern #1: -re `luser\n'? No.

Timeout waiting for luser

luser@10.10.10.39's password: n3wp@ss!Timeout waiting for luser
.