use Apache::Request;
     
          sub handler
          {
              my ( $request ) = @_;     

              my $apr = Apache::Request->new($request);

              my $upload = $apr->upload;
              my $fh = $upload->fh;
               
              while(<$fh>) {
                  
                  # do something with file contents 
                  
              }
          }