Select Code to Download

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

  my $out = new MyFileHandleWrapper;
  my $in = new MyFileHandleWrapper;
...

  # Fork, close $in and read from $out in the parent,
  # print to $in in the child