Perl �evre Değişkenlerini yazdıran kod:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<tt>\n";
foreach $key (sort keys(%ENV)) {
print "$key = $ENV{$key}<p>";
}
DOCUMENT_ROOT = /home/ozgun/htdocs/html GATEWAY_INTERFACE = CGI/1.1 HTTP_ACCEPT = text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5 HTTP_ACCEPT_CHARSET = ISO-8859-1,utf-8;q=0.7,*;q=0.7 HTTP_ACCEPT_ENCODING = gzip,deflate HTTP_ACCEPT_LANGUAGE = en-us,en;q=0.5 HTTP_CONNECTION = keep-alive HTTP_HOST = localhost HTTP_KEEP_ALIVE = 300 HTTP_USER_AGENT = Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.0.1) Gecko/20060124 Firefox/1.5.0.1 PATH = /bin:/usr/bin:/usr/local/bin QUERY_STRING = REMOTE_ADDR = 127.0.0.1 REMOTE_PORT = 1898 REQUEST_METHOD = GET REQUEST_URI = /~ozgun/cgi-bin/perl_env_variables.pl SCRIPT_FILENAME = /home/ozgun/public_html/cgi-bin/perl_env_variables.pl SCRIPT_NAME = /~ozgun/cgi-bin/perl_env_variables.pl SERVER_ADDR = 127.0.0.1 SERVER_ADMIN = webmaster@localhost SERVER_NAME = localhost SERVER_PORT = 80 SERVER_PROTOCOL = HTTP/1.1 SERVER_SIGNATURE = Apache SERVER_SOFTWARE = Apache