
read(STDIN, $CONTENT, $ENV{'CONTENT_LENGTH'});

print<<END;
Sambar Server CGI Environment Variables
<P>
<table border=0 cellpadding=2>
<tr><td>GATEWAY_INTERFACE:</td><td> $ENV{'GATEWAY_INTERFACE'}</td></tr>
<tr><td>PATH_INFO:        </td><td> $ENV{'PATH_INFO'}        </td></tr>
<tr><td>PATH_TRANSLATED:  </td><td> $ENV{'PATH_TRANSLATED'}  </td></tr>
<tr><td>QUERY_STRING:     </td><td> $ENV{'QUERY_STRING'}     </td></tr>
<tr><td>REMOTE_ADDR:      </td><td> $ENV{'REMOTE_ADDR'}      </td></tr>
<tr><td>REMOTE_HOST:      </td><td> $ENV{'REMOTE_HOST'}      </td></tr>
<tr><td>REMOTE_USER:      </td><td> $ENV{'REMOTE_USER'}      </td></tr>
<tr><td>REQUEST_METHOD:   </td><td> $ENV{'REQUEST_METHOD'}   </td></tr>
<tr><td>DOCUMENT_NAME:    </td><td> $ENV{'DOCUMENT_NAME'}    </td></tr>
<tr><td>DOCUMENT_URI:     </td><td> $ENV{'DOCUMENT_URI'}     </td></tr>
<tr><td>SCRIPT_NAME:      </td><td> $ENV{'SCRIPT_NAME'}      </td></tr>
<tr><td>SCRIPT_FILENAME:  </td><td> $ENV{'SCRIPT_FILENAME'}  </td></tr>
<tr><td>SERVER_NAME:      </td><td> $ENV{'SERVER_NAME'}      </td></tr>
<tr><td>SERVER_PORT:      </td><td> $ENV{'SERVER_PORT'}      </td></tr>
<tr><td>SERVER_PROTOCOL:  </td><td> $ENV{'SERVER_PROTOCOL'}  </td></tr>
<tr><td>SERVER_SOFTWARE:  </td><td> $ENV{'SERVER_SOFTWARE'}  </td></tr>
<tr><td>CONTENT_LENGTH:   </td><td> $ENV{'CONTENT_LENGTH'}   </td></tr>
<tr><td>CONTENT:          </td><td> $CONTENT                 </td></tr>
</table>
END
