Select Code to Download

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