Help for this page
sub request { ... print $LOGF "code: '$code'\n"; # I added this line to UserAgent.pm
D-rsp: $VAR1 = bless( { ... }, 'HTTP::Response' ); code: '500'
D-rsp: ... etc... code: '200'