#!/usr/bin/perl

use strict;
use warnings 'all';

setgrent;  

while (my ($name, $passwd, $gid, $members) = getgrent) {
    print "$gid: $name: $members\n";
}

endgrent;  

__END__