Help for this page

Select Code to Download

Select or download this

my $count = 0;
$count++ while defined getgrent;
print "$count\n";