sub handler ($$) {
  my ($class, $r) = @_;

  my $apr = 
    Apache::Request->instance($r, 
                              POST_MAX => 10*1024*1024,
                              DISABLE_UPLOADS => 0);
...