# The syntax is (gname, gpasswd, gid, gmembers) = getgrnam (name); 

#!/usr/local/bin/perl 

$name = "grp1"; 
if (!(($gname, $gpasswd, $gid, $gmembers) = getgrnam ($name))) { 
    die ("Group $name does not exist.\n"); 
} 
$userids = 0; 
while (1) { 
    last if ($gmembers eq ""); 
    ($userid, $gmembers) = split (/\s+/, $gmembers, 2); 
    printf (" %-20s", $userid); 
    $userids++; 
    if ($userids % 3 == 0) { 
        print ("\n"); 
    } 
} 
if ($userids % 3 != 0) { 
    print ("\n"); 
}