use Win32::NetAdmin;
$groupname = 'supercam';
if (GroupIsMember($server, $groupname, $user)) {
  print "user in group"; 
}  else  {
  print "user doesn't have permission...";
}