#!/usr/bin/perl

use warnings;
use strict;
use CGI qw(:standard);

print header();
print start_html(-title=>"Environment Variables Test Page");
foreach my $var (sort keys %ENV) {
        print b($var), " is ", $ENV{$var}, br();
}


print end_html();