Select Code to Download

sub loop
{
...

  } # End while(loop)
}

package IO::Multiplex;
[...]
...
   $self->{_fhs}{"$fh"}{readfun} = $fh->can('sysread');
   [...]
}