open (PP, "net view |") || die "$!\n";
my @servers = map /^(\\\\[^lw].*?)\W/i, <PP>;
close PP || die "$!\n";

open (OUT,">servers.log") || die "$!\n";
print OUT join "\n", @servers;
print "List built!\n";
close OUT || die "$!\n";