#!/usr/bin/perl

use strict;
use vars qw($q @keywords);

use CGI;

$q=new CGI;

print $q->header, $q->start_html('-title'=>'CGI.pm test');

@keywords=$q->keywords;
print $q->h4("Keywords:");
{
    local($")=$q->br;
    print $q->p(@keywords);
    print $q->hr;
    my @n;
    print $q->h4("Params:");
    print $q->p("@{
                      for ($q->param)
                      {
                          push(@n, $_ . qq(=) . $q->param($_));
                      }
                      \@n;
                  }");
    print $q->hr;
    print $q->h4("Environment:");
    print $q->p("@{
                      for (keys(%ENV))
                      {
                          push(@n, $_ . qq(=) . $ENV{$_});
                      }
                      \@n;
                  }");
}
print $q->end_html;