$r = shift;
$cgi = Apache2::Request->new($r);
$r->discard_request_body;   # efficiently parses the request body
my $parser_status = $cgi->param_status();
if ($parser_status ne 'Success')
{
	$parser_error = $parser_status;
}