Hi, just in case you would be willing to run a script from the client, here is a multi-file upload script.

#!/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]