[snip]
>
> # This is a copy of the form code from the snippets page
> sub form {
> use Apache::Request;
> my $r = Apache->request();
> my $apr = Apache::Request->new($r, DISABLE_UPLOADS => 1);
I think DISABLE_UPLOADS should be 0, not 1. I can't find any other
obvious errors in what you have...
if that doesn't work out, you may want to try this code
http://www.modperlcookbook.org/code/ch03/Cookbook/PrintUploads.pm
and see if it helps clarify things. in particular, you might want to
add a call to $apr->parse to see what it returns - that may help you
debug things some more.
you may want to take a look and the tempname() and link() methods for
your uploaded object once you get things figured out :)
HTH
--Geoff
