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

##</code><code>##

  bless $fh => MyHandle::;