Help for this page

Select Code to Download

Select or download this

  {
    package MyHandle;
    use base qw/ IO::Handle IO::Seekable /;
  }

Select or download this
bless $fh => MyHandle::;