diff --git a/grouptools/GNUmakefile b/grouptools/GNUmakefile
index 4120c67..2f4c690 100644
--- a/grouptools/GNUmakefile
+++ b/grouptools/GNUmakefile
@@ -3,7 +3,7 @@ include GNUmakevars
 CONFDIR=../../configure
 CONFDIR_exists=$(shell [ -d $(CONFDIR) ] && echo ok)
 
-all: configure grouplist groupmatch
+all: configure grouplist groupmatch groupcount
 
 clean:
 	rm grouplist groupmatch
@@ -11,6 +11,7 @@ clean:
 install: \
 	$(BINDIR)/grouplist \
 	$(BINDIR)/groupmatch \
+	$(BINDIR)/groupcount \
 
 
 %: %.pl customize
diff --git a/grouptools/groupcount.pl b/grouptools/groupcount.pl
new file mode 100644
index 0000000..19a7c07
--- /dev/null
+++ b/grouptools/groupcount.pl
@@ -0,0 +1,52 @@
+#!@@@perl@@@ -w
+
+=head1 NAME
+
+groupcount - count number of groups of all users
+
+=head1 SYNOPSIS
+
+groupcount
+
+=head1 DESCRIPTION
+
+This script counts the number of groups each user is a member of.
+
+=head1 AUTHOR
+
+Peter J. Holzer <hjp@wsr.ac.at>
+
+=head1 SEE ALSO
+
+id(1)
+
+=cut
+
+use strict;
+use Getopt::Long;
+
+my $debug = 0;
+my $fullname = 0;
+GetOptions("debug" => \$debug,
+           "fullname" => \$fullname);
+           
+
+my $u = {};
+my $g = {};
+
+while (my @gr = getgrent()) {
+
+    my ($name,$passwd,$gid,$members) = @gr;
+    $g->{$gid} = $name;
+    for my $i (split(/ /, $members)) {
+	print STDERR "getgrent: $gid: $i\n" if($debug);
+	$u->{$i}{$name} = 1;
+    }
+}
+
+while (my @pw = getpwent()) {
+    my ($name,$passwd,$uid,$gid, $quota,$comment,$gcos,$dir,$shell,$expire) = @pw;
+    $u->{$name}{$g->{$gid}} = 1;
+    printf("%-10s %3d\n", $name, scalar(keys(%{$u->{$name}})));
+}
+