Hi again! Your reasons for using Apache::Request are valid. I just wanted to make sure you had a purpose...

About my $r = shift;: when you use Apache::Registry or Apache::PerlRun to run a script under mod_perl, it is wrapped in a sub, and the first argument provided is the request object. Is is just a convenient shortcut provided by mod_perl. The request object is created by mod_perl when the request comes in, long before your script is actually called. There is only one instance of the request object for the whole lifetime of the request.

To further debug your Apache::Request problem, I suggest commenting it out and see if your script runs fine without it. This would help to isolate the cause of the error.

Change:

$apr = Apache::Request->new($r, DISABLE_UPLOADS => 1);
my $args = $apache_request->param;
[download]

to

my %args = $r->method eq 'GET' ? $r->args : $r->content;
[download]

and see what happens.