use strict;
use threads;
use Thread::Queue;
use Net::Ping;
my $ThreadCount = 6;
my @Threads;
my $ServerQueue = Thread::Queue->new;
my @down;

chomp (my @Servers = <DATA>);
foreach my $Item (@Servers) 
{ 
    $ServerQueue->enqueue($Item);
}
for (1..$ThreadCount) 
{
    my $Thread = threads->new(\&Process, $ServerQueue);
    push (@Threads, $Thread);
}
my $Start_time = time;
foreach my $Thread (@Threads) 
{
    $Thread->join();
}
my $End_time = time;
print "Start : $Start_time\n";
print "End : $End_time\n";
my $lapsed = $End_time - $Start_time; 
print "\n\nLapsed Time (in Seconds) : $lapsed\n";
print "\n\n_________________\n\n";
print "$_\n" for @down;
sub Process 
{
    my $ServerQueue = shift;
    my $pingobj = Net::Ping->new("icmp",5,64);
    while (1) 
    {
        my $Server = $ServerQueue->dequeue_nb();
        last if (! $Server);
        if ($pingobj->ping($Server)) 
        {
            print "$Server : Up\n";
        }
        else 
        {
            push (@down, $Server . " : Down");
        }
    }
}


__DATA__
SN01BDW02a
SN01BDW03a
SN01BDW04a
SN01BDW05a
SN01BDW06a
SN01BDW07a
SN01BDW08a
SN01BDW09a
SN01BDW10a
SN01BDW11a
SN01BDW12a
SN01BDW13a
SN01BDW14a