sub close_all {
  my $self = shift;
  $success = 1;
  foreach( $self->files ) {
    $success = $_->close && $success
  }
  return $success or die("You must check the return value of close_all");
}