1:mephisto:bin$ perl test.pl
$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '',
                 'client_socket' => bless( \*Symbol::GEN0, 'LWP::Protocol::http::Socket' ),
                 '_rc' => '400',
                 '_headers' => bless( {
                                        'client-date' => 'Thu, 11 Sep 2014 09:58:35 GMT',
                                        'content-type' => 'text/html; charset=UTF-8',
                                        'date' => 'Thu, 11 Sep 2014 09:58:37 GMT',
                                        'client-peer' => '74.125.230.238:80',
                                        'server' => 'GFE/2.0',
                                        'content-length' => '1419',
                                        '::std_case' => {
                                                          'client-date' => 'Client-Date',
                                                          'client-peer' => 'Client-Peer'
                                                        }
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'Bad Request',
                 '_request' => bless( {
                                        '_content' => '',
                                        '_uri' => bless( do{\(my $o = 'http://google.com:80/test')}, 'URI::http' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'libwww-perl/6.05'
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'CONNECT'
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );
1:mephisto:bin$ export PERL5LIB=./5.10.1.608
1:mephisto:bin$ perl test.pl
$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '',
                 'client_socket' => bless( \*Symbol::GEN0, 'LWP::Protocol::http::Socket' ),
                 '_rc' => '405',
                 '_headers' => bless( {
                                        'connection' => 'close',
                                        'date' => 'Thu, 11 Sep 2014 09:58:41 GMT',
                                        'client-peer' => '74.125.230.233:80',
                                        'content-length' => '1456',
                                        '::std_case' => {
                                                          'client-date' => 'Client-Date',
                                                          'client-peer' => 'Client-Peer',
                                                          'alternate-protocol' => 'Alternate-Protocol'
                                                        },
                                        'client-date' => 'Thu, 11 Sep 2014 09:58:39 GMT',
                                        'content-type' => 'text/html; charset=UTF-8',
                                        'server' => 'GFE/2.0',
                                        'alternate-protocol' => '80:quic'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'Method Not Allowed',
                 '_request' => bless( {
                                        '_content' => '',
                                        '_uri' => bless( do{\(my $o = 'http://google.com:80/test')}, 'URI::http' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'libwww-perl/6.08'
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'CONNECT'
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );