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

##</code><code>##

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