my $LocalName = "Y:";

my $RemoteShare = {
                 'Scope' => RESOURCE_CONNECTED,
                 'Type'=> RESOURCETYPE_DISK,
                 'DisplayType' => RESOURCEDISPLAYTYPE_GENERIC,
                 'Usage' => RESOURCEUSAGE_CONNECTABLE,
                 'LocalName' => $LocalName,
                 'RemoteName' => $RemoteName,
                };

Win32::NetResource::CancelConnection($RemoteShare,$Connection,$Force)