Select Code to Download

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

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

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