package CGI::Application::POST_MAX;
use base 'CGI::Application';

sub query {
  my $self = shift;
  if (not exists $self->{__POST_MAX_SET__}) {
    $CGI::POST_MAX=1024 * 100;  # max 100K posts
    $self->{__POST_MAX_SET__} = 1;
  }
  return $self->SUPER::query(@_);
}

1;