#!/usr/bin/

perl

  -w
use strict;
use warnings;
use threads;
use Thread::Queue;
use

Net

 ::FTP;

sub readlines {
    my($filename, @lines); 
    ($filename) = @_;
    open FREEHOSTS, "<$filename";
    while (my $line = <FREEHOSTS> {
      chomp($line);
      push @lines,$line;
      }
    close FREEHOSTS;
    return @lines;
}

my $ftp_password : shared;
$ftp_password = "secret";

my $DomainQueue = Thread::Queue->new;
$DomainQueue->enqueue(readlines("domains.lst");
print $DomainQueue->pending . " ";
my @thrs;

for(my $thr_id=0;$thr_id<6;$thr_id++) {
    my $thr = threads->new(sub {
        while (my $domain = $DomainQueue->dequeue_nb) {
            print "starting $domain ";
            my @parts = split("\.",$domain);
            my $ftp_user = shift @parts;
            next unless my $ftp =

Net

 ::FTP->new($domain, Debug => 0);
            next unless $ftp->login($ftp_user,$ftp_password);
            foreach my $filename (glob($domain . "/*.html") {
                $ftp->put($filename);
                }
            $ftp->quit();
            print "done $domain ";
            }});
    push(@thrs,$thr);
}

foreach my $thr (@thrs) {
    $thr->join;
}