open F, '>', $self->{filename};
if ($other->can('fetch')) {
  print F, $other->fetch();
} else {
  while (my $line = $other->read()) {
    print F, $line;
  }
}
close F;