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	#!/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	}