Help for this page
my ( $name, $passwd, $uid, $gid, $qutoa, $comment, $gcos, $dir, $shell +, $expire ) = getpwent;
my ( $name, $passwd, $uid, $gid, $qutoa, $comment, $gcos, $dir, $shell +, $expire ) = getpwent($account); ... else { print "User $account does not exist...\n"; }