##

#!/usr/bin/perl -T

use warnings;
use strict;
use CGI;

my $q = CGI->new();
print $q->header, $q->start_html;

# find and display all parameters
print "$_: " . $q->param($_) . "
" for $q->param;
print $q->end_html;