#/perl/bin/perl.exe -w
use strict;

my %env_info=(
	REMOTE_ADDR	=> "http://www.google.com",
	CONTENT_LENGTH 	=> " "
	
);

my $name;

foreach $name (keys %ENV) {
	$env_info{$name} = "info provided by the server"
	unless exists $env_info{$name};
}

foreach $name (sort keys %env_info) {
	my $info = $env_info{$name};
	my $value = $ENV{$name} || print "Not defined\n";
	print "$name INFO: $info VALUE: $value\n";
}