Select Code to Download

#!/usr/bin/perl -w
#<UnusedGrp.pl> Find unused Groups in /etc/group

...
     }
   }
}

#!/usr/bin/perl -w
#<UnusedGrp.pl> Find unused Groups in /etc/group
use strict;
...

   print "$GRP[0] has no users and no GID references\n"
}

#!/usr/bin/perl -w
#<UnusedGrp.pl> Find unused Groups in /etc/group
use strict;
...
    next if $gids{$fields[2]};
    print "$fields[0] has no users and no GID references\n"
}