#!/usr/bin/perl
use warnings;
use strict;
use CGI::Carp qw( fatalsToBrowser set_message );
use CGI qw/:standard/;

$|=1;
print "Content-type: text/plain\n\n";

foreach my $name ( param() ) {
   print "$name: '", param($name), "'\n";
   }