You want Apache::Request, part of libapreq.

From the docs:

    upload 
    Returns a single Apache::Upload object in a scalar context
    or all Apache::Upload objects in an array context: 

        my $upload = $apr->upload;
        my $fh = $upload->fh;
        my $lines = 0; 
        while(<$fh>) { 
            ++$lines; 
            ...
        } 

    An optional name parameter can be passed to return
    the Apache::Upload object associated with the given
    name: 

        my $upload = $apr->upload($name);
[download]