Problem 2: skip Net::Gnutella, I doubt if your clients want their updates d1str1bu7ed to hundreds of kiddiez, nor do the kiddiez want your files. Be nice to both parties.

You certainly could do the pushing to multiple servers. But there's no point using pack, which isn't optimised for file compression. If you need to compress it further, you could tar.gz it (you probably want to unzip it first, the .tar.gz compression will prolly work better on an uncompressed initial file.)

You can do this from the command line (system 'tar zcvf filename files', system 'unzip filename') or using Archive::Tar and Archive::Zip. But note that the code to unzip the file needs to be on the other side. There's no way to do it remotely (without being rather insecure). So e.g., create a simple script to unzip the files, which runs on a crontab. (Make sure the script can't be fooled into unzipping things into bad places.)

You might find it easier to unzip first, then upload the raw files. After all, if it is automated, it doesn't matter if it takes longer.

The last bit, getting it to do it automatically, is the easiest.

while (<>) {
 chomp; # can't remember if this is necessary or not
 my $domain = $_;
 &send_file_to($domain) or warn "Couldn't send file to $_"; # your sub
+routine
}
[download]

dave hj~