#!perl # print "Content-type: text/plain\r\n\r\n"; print "Startup environment:\n"; print "$_=$ENV{$_}\n" for sort keys %ENV; print "-" x 75, "\n"; my (@list) = qw/ CONTENT_ENCODING CONTENT_LENGTH CONTENT_TYPE GATEWAY_INTERFACE GMT_OFFSET HOST HTTPS HTTP_ACCEPT HTTP_ACCEPT_ENCODING HTTP_ACCEPT_LANGUAGE HTTP_CONNECTION HTTP_CONTENT_TYPE HTTP_FROM HTTP_HOST HTTP_REFERER HTTP_USER_AGENT PATH PATH_INFO PATH_TRANSLATED QUERY_STRING REFERER REMOTE_ADDR REMOTE_HOST REMOTE_IDENT REMOTE_USER REQUEST_LINE REQUEST_METHOD SCRIPT_NAME SERVER_ADMIN SERVER_NAME SERVER_PORT SERVER_PROTOCOL SERVER_SOFTWARE SERVER_URL SYSTEMROOT USER_AGENT /; print "HTTP environment:\n"; print "$_=$ENV{$_}\n" for sort @list; print "-" x 75, "\n"; print "Cached environment:\n"; print "$_=$ENV{$_}\n" for sort keys %ENV;