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