use Expect;

my $timeout=5;

foreach my $i (1..20)
{
  my $spawn_ok="not OK";

  my $exp = Expect->spawn("./unreliable.pl")
    or die "Cannot spawn unreliable process $!\n";

  $exp->expect($timeout,
    [
      'It worked',
        sub
        {
          $spawn_ok = "OK";
          exp_continue;
        }
    ],
    [
      timeout =>
        sub
        {
          print "Process timed out.\n";
        }
    ]
  );
  print "Status: $spawn_ok\n";
}