$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '',
                 '_headers' => bless( {
                                        'host' => 'www21051ue.sakura.ne.jp:8888',
                                        'accept' => '*/*',
                                        'user-agent' => 'claudebot'
                                      }, 'HTTP::Headers' ),
                 '_method' => 'GET',
                 '_uri' => bless( do{\(my $o = '/index.cgi\'')}, 'URI::http' )
               }, 'HTTP::Request' );
--------------------------------------------------------------------------------