Select Code to Download

sub what_next {
  my ($kernel, $job) = @_;
...
    $kernel->yield( 'process_next_input' );
  }
}

sub process_next_input {
  ...;
...

  what_next($_[KERNEL], $job);
}