#!/usr/bin/perl -w

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