Select Code to Download

#!/usr/bin/perl
use warnings;
...
while (my ($pwnam, $group_id) = (getpwent)[0, 3]) {
    say "[$pwnam]" if $group_id == $gid;
}