Select Code to Download

use Data::Dumper;
use Win32::API 0.71 qw( SafeReadWideCString );
...
NetApiBufferFree($bufferptr);
print Dumper([$buffer, $bufferptr, $entriesread, $totalentries]);
print Dumper(\@SHARE_INFO);

$VAR1 = [
          undef,
...
            "shi1_netname" => "C\$"
          }
        ];