#! /usr/bin/perl
use CGI "param";

print "Content-type: text/html\n\n";
print "&ltresponse&gt<BR/>";

foreach my $name ( param() ) {
		my $values = param ($name);
    print  "&lt$name&gt<I>$values&lt/$name&gt</I><BR>";
}
print "&lt/response&gt<BR/>";