The following are the environment variables:

DOCUMENT_ROOT : /srv/www/docs
GATEWAY_INTERFACE : CGI/1.1
HTTP_ACCEPT : text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
HTTP_ACCEPT_ENCODING : x-gzip, gzip, deflate
HTTP_ACCEPT_LANGUAGE : en-us,en-gb,en;q=0.7,*;q=0.3
HTTP_DEVICE_CLASS : desktop
HTTP_HOST : www.stanford.edu
HTTP_USER_AGENT : CCBot/2.0
KRB5CCNAME : FILE:/tmp/K5tkt24519nitsche.cgi
PATH : /usr/local/bin:/usr/bin:/bin:/usr/pubsw/bin
QUERY_STRING : 
REMOTE_ADDR : 184.72.91.94
REMOTE_PORT : 52256
REQUEST_METHOD : GET
REQUEST_URI : /~nitsche/cgi-bin/env.pl
SCRIPT_FILENAME : /afs/ir/users/n/i/nitsche/cgi-bin/env.pl
SCRIPT_NAME : /~nitsche/cgi-bin/env.pl
SCRIPT_URI : http://www.stanford.edu/~nitsche/cgi-bin/env.pl
SCRIPT_URL : /~nitsche/cgi-bin/env.pl
SERVER_ADDR : 171.67.214.137
SERVER_ADMIN : webmaster@stanford.edu
SERVER_NAME : www.stanford.edu
SERVER_PORT : 80
SERVER_PROTOCOL : HTTP/1.0
SERVER_SOFTWARE : Apache


The following is the source of this programme:
#!/usr/bin/perl

# programme for showing enviroment variables

print "Content-type: text/plain\n\n";

print "\n";

print "The following are the environment variables:\n";

@ListOfKeys = keys(%ENV);
@SortedListOfKeys = sort(@ListOfKeys );
print "\n";
foreach (@SortedListOfKeys)
 {
  print $_;
  print " : ";
  print $ENV{$_};
  print "\n";
 }
print "\n";

print "\n";

print "The following is the source of this programme:\n";
$filename = $ENV{'SCRIPT_FILENAME'};
open(FILE, "<$filename");
while(<FILE>)
 {
  print $_;
 }
close(FILE);

print "\n";