#!/usr/bin/perl

use strict;
use warnings;

use CGI;

# print a simple content-type which will ensure we're not at
# risk of XSS attacks, etc.
print "Content-type: text/plain\n\n";

# get the CGI object
my $cgi = new CGI;

# for each parameter submitted
foreach my $param ( $cgi->param() )
{
   # print the parameter and the value it contained.
   print $param . " " . $cgi->param( $param ) . "\n";
}