package Iter::Input;

sub new {
   my ( $class, $chunk_size, $iterations ) = @_;
   my ( $chunk_id, $seq_a ) = ( 0, 1 );

   MCE::Shared->share(
      bless [ $iterations, $chunk_size, \$chunk_id, \$seq_a ], $class
   );
}

sub recv {
   ...
}