#!/usr/bin/perl -w

use CGI;
  
$q = new CGI;

print $q->header;

print $q->start_html('kukkuluuruu');

print "<h1>Hello World</h1>";

print "<table>";

print $q->Tr( $q->th('Accept'), 	$q->td( $q->Accept ) );
print $q->Tr( $q->th('auth_type'),	$q->td( $q->auth_type ) );
print $q->Tr( $q->th('raw_cookie'), 	$q->td( $q->raw_cookie ) );
print $q->Tr( $q->th('path_info'), 	$q->td( $q->path_info ) );
print $q->Tr( $q->th('path_translated'),$q->td( $q->path_translated ) );
print $q->Tr( $q->th('query_string'),	$q->td( $q->query_string ) );
print $q->Tr( $q->th('referer'), 	$q->td( $q->referer ) );
print $q->Tr( $q->th('remote_addr'), 	$q->td( $q->remote_addr ) );
print $q->Tr( $q->th('remote_ident'), 	$q->td( $q->remote_ident ) );
print $q->Tr( $q->th('remote_host'), 	$q->td( $q->remote_host ) );
print $q->Tr( $q->th('remote_user'), 	$q->td( $q->remote_user ) );
print $q->Tr( $q->th('request_method'), $q->td( $q->request_method ) );
print $q->Tr( $q->th('script_name'), 	$q->td( $q->script_name ) );
print $q->Tr( $q->th('server_name'), 	$q->td( $q->server_name ) );
print $q->Tr( $q->th('server_software'),$q->td( $q->server_software ) );
print $q->Tr( $q->th('virtual_host'), 	$q->td( $q->virtual_host ) );
print $q->Tr( $q->th('server_port'), 	$q->td( $q->server_port ) );
print $q->Tr( $q->th('user_agent'), 	$q->td( $q->user_agent ) );
print $q->Tr( $q->th('user_name'), 	$q->td( $q->user_name ) );
print $q->Tr( $q->th('http'), 		$q->td( $q->http ) );
print $q->Tr( $q->th('https'), 		$q->td( $q->https ) );
print $q->Tr( $q->th('HTTP_CONNECTION'),$q->td( $q->http('HTTP_CONNECTION')) );
print $q->Tr( $q->th('HTTP_ACCEPT_LANGUAGE'),	$q->td( $q->http('HTTP_ACCEPT_LANGUAGE')) );
print $q->Tr( $q->th('HTTP_ACCEPT_ENCODING'),	$q->td( $q->http('HTTP_ACCEPT_ENCODING')) );
print $q->Tr( $q->th('HTTP_PRAGMA'),	$q->td( $q->http('HTTP_USER_PRAGMA')) );
print $q->Tr( $q->th('HTTP_ACCEPT_CHARSET'),	$q->td( $q->http('HTTP_ACCEPT_CHARSET')) );

print "</table>";


print $q->end_html;