use Win32::NetResource;
my $info = "";
if (&Win32::NetResource::NetShareGetInfo($nameOfSharedPath, $info, $server)) {
  print "$info->{current-users} connections\n";
}
else {
  # error
}