Select Code to Download

open(srv,"c:/server.txt")|| die "$^E\n";
chomp ( my @servers =<srv>);

Foreach my $srv (sort @servers){
   my $ip = Win32::AdminMisc::GetHostAddress($srv);
   print "\nhost: $srv\tIp Address: $ip\n";}