#
    # This example displays all the share points in the entire
    # visible part of the network.
    #
    use strict;
    use Win32::NetResource; qw(:DEFAULT GetSharedResources GetError);
    my $resources = [];
    unless(GetSharedResources($resources, RESOURCETYPE_ANY)) {
        my $err = undef;
        GetError($err);
        warn Win32::FormatMessage($err);
    }
    foreach my $href (@$resources) {
        next if ($$href{DisplayType} != RESOURCEDISPLAYTYPE_SHARE);
        print "-----\n";
        foreach( keys %$href){
            print "$_: $href->{$_}\n";
        }
    }

##</code><code>##

Can't load 'C:/Perl/site/lib/auto/Win32/NetResource/NetResource.dll' for module
Win32::NetResource: load_file:A device attached to the system is not functioning
 at C:/Perl/lib/DynaLoader.pm line 206.
 at search.pl line 6
Compilation failed in require at search.pl line 6.
BEGIN failed--compilation aborted at search.pl line 6.