$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' ); --------------------------------------------------------------------------------