$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.0',
                 '_content' => '',
                 '_uri' => bless( do{\(my $o = '/index.cgi\'')}, 'URI::http' ),
                 '_headers' => bless( {
                                        'user-agent' => 'CCBot/2.0 (http://commoncrawl.org/faq/)',
                                        'accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
                                        'accept-encoding' => 'x-gzip, gzip, deflate',
                                        'host' => 'www21051ue.sakura.ne.jp:8888'
                                      }, 'HTTP::Headers' ),
                 '_method' => 'GET'
               }, 'HTTP::Request' );
--------------------------------------------------------------------------------