Select Code to Download

# unreliable.pl - Simulate a program that sometimes just hangs
if (rand(10) > 8){
...
        "It worked this time, no problems\n",
        "--------------------------------\n";
}

# timeout.pl - Expect Test Program
use Expect;
...
    or die "Cannot spawn unreliable process $!\n";
  $exp->expect($timeout);
}

use Expect;
my $timeout=5;
...
    ]
  );
}

use Expect;

...
  print "Status: $spawn_ok\n";
}