• Why are you creating multiple CGI objects? I think you want to create a single object, and read the values from that.
• CGI has an upload() function for uploading files, and the docs offer a recommended idiom.
• You don't need to name your fields different things -- The upload() function can be used in array context (see docs)
• Not all browsers send the entire path of the upload (Netscape, at least my netscape, sends only the filename, no path) So whatever you are trying to accomplish, they'd break your hash idea..

Update: I think I've figured out what you are trying to do: You want to force the page to upload the given files? Can't be done on the perl side. Perhaps javascript, but the actual sending of the file is decided on the browser side, and perl can only work with what it's given. Of course, if I'm wrong about your goal, please clarify.

I'm very confused about what you are trying to do here. You do realize that the file upload mechanism is a way for the client (browser) to send a file to the server, right? It looks to me like you are attempting to use it to send a file to the client.

Also, there would be no good reason to have the line my $req = new CGI; inside a loop like that.

Can you explain exactly what you are hoping to accomplish?

-sauoq
"My two cents aren't worth a dime.";

I want to send a pre-defined list of files to a server.

I'm afraid might be in a dead end here. I don't think the server can request just any file from the client, that would be like a MAJOR security breach (f.ex. every server would have a file upload, which would discard the name and upload /etc/passwd or the Windows registry or something).

I think the uploaded file's name is in the request that the client sends, and if I remember correctly, the uploaded file comes next. I don't think the webserver is even allowed to say anything before the entire file is uploaded, and therefore you can't request a file that way, but I'm on very thin ice here. Anyway, it sounds very dangerous to me.

The server can't tell the client what files to send. (Hopefully not, at least.) As fsn points out, that would be a huge gaping security hole.

-sauoq
"My two cents aren't worth a dime.";

#!/usr/bin/perl
use warnings;
use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $url ='http://zentara.zentara.net/~zentara/cgi-bin/uploadz';

my $dir = shift || ".";
opendir DIR, $dir or die "can't ls $dir: $!";
my @files = grep { $_ ne "." and $_ ne ".." } readdir DIR;

foreach my $file (@files){
my $ua = new LWP::UserAgent;
my $req = POST $url,
Content_Type => 'multipart/form-data',
Content => [
file => [$file]
];

my $res = $ua->request($req);
if ($res->is_success){print $res->as_string;
}else{print $res->status_line;
}
}
exit 0;
[download]