CGI Codes for POST Testing

---

#!/usr/bin/perl
use CGI;

$method=lc($ENV{'REQUEST_METHOD'}); 
if($method ne "post")
{
	print "Content-type: text/plain\n\n";
	print "\r\nInvalid Method.";
	exit(0);
}

print "Content-type: text/plain\n\n";

$q = new CGI;
@fields = $q->param();
foreach $key (@fields)
{
	$val = $q->param($key);
	$fs=(stat($val))[7];
	if($fs)
	{
		print "File Item: $key = $val, size=$fs\n";
	}
	else
	{
		print "Text Item: $key = $val\n";
	}
}