gistfile1.pl

$VAR1 = {
          'SCRIPT_NAME' => '/test.pl',
          'SERVER_NAME' => 0,
          'HTTP_REFERER' => 'http://xxx.xx:5000/',
          'HTTP_ACCEPT_ENCODING' => 'gzip,deflate',
          'HTTP_CONNECTION' => 'keep-alive',
          'PATH_INFO' => '',
          'HTTP_ACCEPT' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
          'REQUEST_METHOD' => 'GET',
          'SERVER_SOFTWARE' => 'CGI-Emulate-PSGI',
          'HTTP_ACCEPT_CHARSET' => 'UTF-8,*',
          'PLACK_ENV' => 'development',
          'REMOTE_PORT' => 61655,
          'HTTP_USER_AGENT' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13',
          'QUERY_STRING' => '',
          'SERVER_PORT' => 5000,
          'psgix.input.buffered' => 1,
          'HTTP_ACCEPT_LANGUAGE' => 'zh-tw,en-us;q=0.7,en;q=0.3',
          'REMOTE_ADDR' => 'xx.xxx.xxx.xx',
          'HTTP_KEEP_ALIVE' => '115',
          'SERVER_PROTOCOL' => 'HTTP/1.1',
          'GATEWAY_INTERFACE' => 'CGI/1.1',
          'REQUEST_URI' => '/test.pl',
          'HTTPS' => 'OFF',
          'psgix.io' => bless( \*Symbol::GEN1, 'IO::Socket::INET' ),
          'REMOTE_HOST' => 'localhost',
          'HTTP_HOST' => 'xxx.xx:5000'
        };