package MyIO;

sub isa
{
  my $self = shift;
  my $type = shift;

  return 1 if $type eq 'IO::Handle';

  return $self->SUPER::isa($type);
}