#!/usr/local/bin/perl

while (($gname, $password, $groupid, $userids)
        = getgrent()) {
        $garray{$gname} = $userids;
}
foreach $gname (sort keys (%garray)) {
        print ("Group $gname:\n");
        @userids = split (/\s+/, $garray{$gname});
        foreach $userid (sort (@userids)) {
                print ("\t$userid\n");
        }
}
