#!/usr/bin/perl -wT

use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

print header;
print start_html("Environment");

foreach my $key (sort(keys(%ENV))) 
{
    print "$key = $ENV{$key}<br>\n";
}

my $value = cookie('koh');

print "\n<br>\nThe cookie <b>koh</b> contains <b>$value</b>\n<br><br>\n";
print end_html;