Select Code to Download

open(NETVIEW, "net view|") or die "$!";
print NETVIEW;

use Win32::Lanman;
$odir = "C:\\TEMP\\SHARES";
...
 undef @S1;
 return(@servers1); # Returns the server list
 }