Select Code to Download

sub fdopen {
    @_ == 3 or croak 'usage: $io->fdopen(FD, MODE)';
...
    open($io, _open_mode_string($mode) . '&' . $fd)
    ? $io : undef;
}

package ReadingHandle;

...
}

1;