sub request
{
    my($self, $request, $arg, $size, $previous) = @_;

    LWP::Debug::trace('()');

    my $response = $self->simple_request($request, $arg, $size);
my $wmsgB = Dumper( $response ); # I added this line to UserAgent.pm
print "D-rsp:\n$wmsgB\n";        # I added this line to UserAgent.pm

    my $code = $response->code;
    $response->previous($previous) if defined $previous;

print $LOGF "code: '$code'\n";   # I added this line to UserAgent.pm