Select Code to Download

sub as_request( $self ) {
    HTTP::Request->new(
...
        $self->_build_quoted_body(), # was $self->_build_body
    )
};

sub as_request( $self ) {
    HTTP::Request->new(
...
        $self->body(),
    )
};