A VERY quick look lead me to Win32::NetResource with the GetSharedResources function. The following is from the docs.

    #
    # 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;
        GetError($err);
        warn Win32::FormatMessage($err);
    }
    foreach my $href (@$resources) {
        next if ($$href{DisplayType} != RESOURCEDISPLAYTYPE_SHARE);
        print "-----\n";
        foreach( keys %$href){
            print "$_: $href->{$_}\n";
        }
    }
[download]

Update: Fixed link to cpan docs.

-----
Of all the things I've lost in my life, its my mind I miss the most.