#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

print header(-type => 'text/plain');

foreach (param) {
  print "Parameter $_ is ", param($), "\n";
}