#!/usr/bin/perl

use CGI qw/:standard/;

$query = new CGI;
@pars = $query->param;
print header, "<html><head></head><body onload=\"alert('Response loaded');\"<p>";
foreach(@pars){
print "$_ : ".param($_)."\n";
}
print "</p>".end_html;

