sub GroupCreate() {
  my($userdb,%group) = @_;
  print STDERR "GroupCreate received these arguments: \n\t\$userdb is $userdb.  \n\tThe new group name is: $group->{groupname}.\n\t\$group is $group.\n";
  return p("Groupname required to create new group.") unless defined($group->{groupname});
  my($status,$gid);
  print STDERR "Creating a new group called: $group->{groupname}.\n";

  print STDERR "\tref of group = ref($group) \n\tref of groupname = ref($groupname) \n";

  {
    no strict 'refs';
    my $result = $userdb->group_create ( $group->{groupname} );
  }
  if($result) {
    $status = p("A New Group, called <b>$group{groupname}</b> has been successfully created, with GID: $group->{'gid
'}.");
  } else {
    $status = p("The creation of a new Group, called <b>$group{groupname}</b> failed.");
  }
  return $status;
} # END GroupCreate