#!/usr/bin/perl -wT use CGI; use CGI::Carp qw(fatalsToBrowser); #makes any error messages appear in the browser $query = new CGI; #instantiates new CGI object @params = $query->param; #fetches names of all parameters passed to the script print $query->header,$query->start_html('Show Params'); #prints http header, html tags up to #loop through the list of parameters and print each out on #a separate line. foreach $parameter(@params) { print $parameter, ": ", $query->param($parameter), $query->br; } print $query->end_html;