#!/usr/bin/perl use warnings; use strict; while (my ($name, $passwd, $gid, $members) = getgrent) { print "$gid: $name [$passwd] $members \n"; }