CGI::Simple POST Test

#!/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 <

Foo:

Bar:

FORM ##

##

$VAR1 = bless( {
                 '.globals' => {
                                 # skipped
                               },
                 '.cgi_error' => '500 Bad read on POST! wanted 31, got 0',
                 '.mod_perl' => 1
               }, 'CGI::Simple' );

##

##

#!c:/perl/bin/perl.exe -wT
use strict;

my $buffer;
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
print "Content-type: text/plain\n\n";
print $buffer;