sub read {
  my $self = shift;
  $self->{real_filehandle}->read(@_);
}