#!/usr/bin/perl
print "Content-type: text/html\n\n";
foreach my $scalar (<STDIN>)
{
       print "Data received is: " . $scalar . "\n\n";
}

##</code><code>##

-----------------------------18908589074631857321096704418
Content-Disposition: form-data; name="TestFormField"
 
435435
-----------------------------18908589074631857321096704418
Content-Disposition: form-data; name="Submit"
 
Continue
-----------------------------18908589074631857321096704418--

##</code><code>##

#!/usr/bin/perl
use CGI qw (-debug);
use CGI::Carp qw (fatalsToBrowser);
print "Content-type: text/html\n\n";
print "Dump is:\n";
my $CGIValues = new CGI;
$CGIValues->Dump();