<%perl>
my $apr = Apache::Request->instance( $r, POST_MAX => 1 );
my $status = $apr->parse();
if( $status != Apache::Constants::OK ) {
  print "Too big";
} else {
  print "Just right.";
}
</%perl>

##</code><code>##

package My::ApacheHandler;

use base 'HTML::Mason::ApacheHandler';

sub prepare_request {
  my $self = shift;
  my $r     = shift;

  Apache::Request->instance( $r, POST_MAX => 1 );

  return $self->SUPER::prepare_request( $r, @_ );
}

1;