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