#!/usr/bin/env perl -l
use warnings;
use strict;
use Expect;


foreach my $restart (0, 1) {
    my $exp = Expect->new();
    $exp->restart_timeout_upon_receive($restart);

    $exp->spawn(qw{perl -le 'foreach(@ARGV) { print $_; sleep 2; } ' wait until seeing the fifth word })
        or die "cannot spawn: $!\n";

    my @return = $exp->expect(4, 'fifth');
    print "restart=$restart -> \@return = ", join ', ', map { $_ // '<undef>' } @return;
}