package My::Upload;

sub Upload {
  my ($class, $apr) = @_;

  $class->Add($_) foreach $apr->upload;
}

sub Add {
  my ($class, $apr) = @_;
  ...
}

package My::Doohickey;
use base qw/My::Upload/;

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

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

  
  $class->Upload($apr) if $apr->upload;

  ...

  return OK;
}

##</code><code>##

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

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