##Replace THIS code 
while (<DATA>)
{
   chomp;
   print "$_ : ";
   my $ip_address = Win32::AdminMisc::gethostbyname($_);
   print "$ip_address\n";
   push (@targets, $ip_address);
}

# Generate list of hosts to ping
foreach my $target (@targets) 
{
  $RequestQ->enqueue ($target);
}


## Replace with THIS code ####
while (<DATA>)
{
   chomp;
   print "Queuing ping for $_ : ";
   $RequestQ->enqueue $_ ; # Feed the NAME directly in
}