use strict;
    use Win32::NetResource qw(:DEFAULT GetSharedResources GetError);
    if (GetSharedResources(my $resources, RESOURCETYPE_ANY,
               { RemoteName => "\\\\" . Win32::NodeName() }))
    {
    foreach my $href (@$resources) {
        print "-----\n";
        foreach(keys %$href) { print "$_: $href->{$_}\n"; }
    }
    }
[download]