Select Code to Download

use Proc::Queue size => 3;
my $mech = WWW::Mechanize->new(timeout => 90);
...
    }
    1 while waitpid(-1, WNOHANG)>0; # reaps childs
}

use Proc::Queue size => 3;
while (@urllist) {
...
    }
    1 while waitpid(-1, WNOHANG)>0; # reaps childs
}