sub add {
  my $self = shift;
  my $data = join '', @_;
  $self->{'size'} += length $data;
  if (defined $self->{'fh'}) {
    my $fh = $self->{'fh'};
    print $fh $data;
  }
  else {
    $self->{'data'} .= $data;
  }
}

##</code><code>##

sub add {
#I, George Sherston, edited this function 6/2002;
  my $self = shift;
  my $data = join '', @_;
  $self->{'size'} += length $data;
#  if (defined $self->{'fh'}) {
#    my $fh = $self->{'fh'};
#    print $fh $data;
  print $data;
#  }
#  else {
#    $self->{'data'} .= $data;
#  }
}