#!/usr/bin/perl
use strict;
use warnings;
use CGI::Simple;
my $cgi = new CGI::Simple;
my @params = $cgi->param();
print <
CGI::Simple POST Test
HEAD
print($cgi->param($_) . "
") for (@params); # nothing printed if @params is empty
print $cgi->Dump; # for debugging purpose
print <
FORM