Select Code to Download

package My::Upload;

...

  return OK;
}

sub handler ($$) {
  my ($class, $r) = @_;
...
                              POST_MAX => 10*1024*1024,
                              DISABLE_UPLOADS => 0);
...