#!/usr/bin/perl
use strict;
use CGI;

my $q = CGI->new;
print $q->header;
print $q->start_html;
print '<ul>';

foreach my $var (keys %ENV) {
    print '<li>', $var, ' => ', $ENV{$var}, '</li><br>';
}

print '</ul>';
print $q->end_html;