#!/usr/local/bin/perl5 print "Content-type: text/html\n\n"; print "<HTML>"; print "<HEAD><TITLE>environment</TITLE></HEAD>"; print "<BODY>\n"; print "<HR>\n"; print "<H1>環境変数の一覧</H1>\n"; print "SERVER_SOFTWARE $ENV{'SERVER_SOFTWARE'} <BR>"; print "SERVER_NAME $ENV{'SERVER_NAME'} <BR>"; print "REMOTE_HOST $ENV{'REMOTE_HOST'} <BR>"; print "REMOTE_ADDR $ENV{'REMOTE_ADDR'} <BR>"; print "HTTP_REFERER $ENV{'HTTP_REFERER'} <BR>"; print "HTTP_USER_AGENT $ENV{'HTTP_USER_AGENT'} <BR>"; print "HTTP_ACCEPT $ENV{'HTTP_ACCEPT'} <BR>"; print "<HR>\n"; print "<CENTER>\n"; print "<A HREF=\"$ENV{'HTTP_REFERER'}\">戻る</A>"; # HTTP_REFERER を使うと呼ばれたページへ戻れます。 print "</CENTER>\n"; print "<HR>\n"; print "</BODY>\n"; print "</HTML>\n";