$ENV{'DOCUMENT_ROOT'} = /usr/home/solid/suiyo/html
<BR>$ENV{'GATEWAY_INTERFACE'} = CGI/1.1
<BR>$ENV{'HTTP_ACCEPT'} = */*
<BR>$ENV{'HTTP_ACCEPT_ENCODING'} = gzip, br, zstd, deflate
<BR>$ENV{'HTTP_CACHE_CONTROL'} = max-age=0
<BR>$ENV{'HTTP_CONNECTION'} = keep-alive
<BR>$ENV{'HTTP_HOST'} = www.suiyokai.org
<BR>$ENV{'HTTP_USER_AGENT'} = Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)
<BR>$ENV{'HTTP_VIA'} = 1.1 squid-proxy-5b5d847c96-x995x (squid/6.10)
<BR>$ENV{'HTTP_X_FORWARDED_FOR'} = 10.1.140.234
<BR>$ENV{'PATH'} = /bin:/sbin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin
<BR>$ENV{'QUERY_STRING'} = 
<BR>$ENV{'REMOTE_ADDR'} = 216.73.216.147
<BR>$ENV{'REMOTE_PORT'} = 14098
<BR>$ENV{'REQUEST_METHOD'} = GET
<BR>$ENV{'REQUEST_URI'} = /cgi-bin/50_perl/print_list_env.pl
<BR>$ENV{'SCRIPT_FILENAME'} = /usr/home/solid/suiyo/cgi-bin/50_perl/print_list_env.pl
<BR>$ENV{'SCRIPT_NAME'} = /cgi-bin/50_perl/print_list_env.pl
<BR>$ENV{'SERVER_ADDR'} = 182.48.52.155
<BR>$ENV{'SERVER_ADMIN'} = [no address given]
<BR>$ENV{'SERVER_NAME'} = www.suiyokai.org
<BR>$ENV{'SERVER_PORT'} = 80
<BR>$ENV{'SERVER_PROTOCOL'} = HTTP/1.1
<BR>$ENV{'SERVER_SIGNATURE'} = <address>Apache Server at www.suiyokai.org Port 80</address>

<BR>$ENV{'SERVER_SOFTWARE'} = Apache
<BR>$ENV{'UNIQUE_ID'} = aQZINLYwNJsAAEzab54AAAAK
<BR><HR><HR><HR>program_list<pre><BR>#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
#while (($name, $value) = each(%ENV)){
#	print "\$ENV{\'$name\'} = $value\n&ltBR&gt";
#	}

@a = keys(%ENV);
@a = sort(@a);
foreach (@a){
	print "\$ENV{\'$_\'} = $ENV{$_}\n&ltBR&gt";
}


&amp;print_s_link;
exit;
################上までがプログラム本体下はソース表示のためのプログラム
sub print_s_link{
	require './module/type_script.pm'
	&amp;type_script'type_script($ENV{'SCRIPT_NAME'})
}
</pre>