cgi/var/server-protocol.cgi

#!/usr/bin/perl
print <<EOH;
Content-Type: text/plain
X-CGI-Header: body
    X-Request: $ENV{REQUEST_METHOD}

EOH
    for (sort qw/SERVER_PROTOCOL SERVER_NAME SERVER_PORT SERVER_SOFTWARE GATEWAY_INTERFACE REQUEST_METHOD PATH_INFO QUERY_STRING REMOTE_ADDR REMOTE_HOST REMOTE_USER REMOTE_IDENT CONTENT_TYPE CONTENT_LENGTH HTTP_CONTENT_TYPE AUTH_TYPE HTTP_CONTENT_LENGTH REQUEST_URI SCRIPT_NAME/, grep /^HTTP_/, keys %ENV) {
        print "$_: $ENV{$_}\n";
    }
1	wakaba	1.1	#!/usr/bin/perl
2			print <<EOH;
3			Content-Type: text/plain
4			X-CGI-Header: body
5			X-Request: $ENV{REQUEST_METHOD}
6
7			EOH
8			for (sort qw/SERVER_PROTOCOL SERVER_NAME SERVER_PORT SERVER_SOFTWARE GATEWAY_INTERFACE REQUEST_METHOD PATH_INFO QUERY_STRING REMOTE_ADDR REMOTE_HOST REMOTE_USER REMOTE_IDENT CONTENT_TYPE CONTENT_LENGTH HTTP_CONTENT_TYPE AUTH_TYPE HTTP_CONTENT_LENGTH REQUEST_URI SCRIPT_NAME/, grep /^HTTP_/, keys %ENV) {
9			print "$_: $ENV{$_}\n";
10			}