sub as_string {
  my $self = shift;
  return $self->header_obj->as_string . $self->crlf . $self->body;
}