Corion please heeeelllppp :D...Make me a christmas present and help me find this code :P Really these days i tried and tried and tried all over again but with no success...In parallel forkmanager it's impossible to have double loops for the smtp and addresses in the same time and with your code I just can't make my script to work...I just want to take 10 addresses at a time with splice that is easy to make even for parallel fork manager but when I put the smtp servers with splice too it only takes the addresses fine but the servers no...I managed to make a code like this :

#!/usr/bin/perl

use Parallel::ForkManager;

$fileaddress = $ARGV[0];
open(INFO, $fileaddress);
@addresses = <INFO>;
close(INFO);
$" = ",";
chomp @addresses;
$pm = new Parallel::ForkManager(2);
while (@addresses) {
@tenaddresses = splice(@addresses, 0, 10);
my $pid = $pm->start and next;
print "The ten values are @kkt2 : @tenaddresses\n";
$pm->finish;
}

How do I make that code to take the smtp servers from file smtp.txt and inside the "my $pid = $pm->start and next;" to put a smtp server every 10 addresses then send with 2 parallel forks at a time...sleep 10 and take the next 2 parallel forks and the next 10 addresses each ( every fork has it's own smtp server and it's own 10 addresses )...Make it only print Sending with $smtpserver to this ten addresses : @addresses...Please help i don't know where else to search for help