#!/usr/local/bin/perl
@degiskenler = keys %ENV;
@degiskenler = sort @degiskenler;
print "Content-type: text/html; charset=iso-8859-9\n\n";
print "\n";
print "\n";
print "Environmental Variables
";
print " \n";
foreach $degisken (@degiskenler)
{
print " \n";
print "| $degisken | \n";
print " $ENV{$degisken} | \n";
print "
\n";
}
print "
";
print "";
print ""