some-usable-scripts/perl/getpwent2.pl

#!/usr/bin/perl -w

my $user;
my $util;
my @human;
my @inhuman;