<%perl>
my $apr = Apache::Request->instance($r,POST_MAX => 1);
my $status = $apr->parse;
if ($status) {
print "Too big";
}else{
print "OK"
</%perl>