use strict;
use warnings;

while ( my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos,
            $home, $shell) = getpwent ) {
    print <<"ALL_USER_ATTRS";
name    = $name
passwd  = $passwd
uid     = $uid
gid     = $gid
quota   = $quota
comment = $comment
gcos    = $gcos
home    = $home
shell   = $shell

ALL_USER_ATTRS
}