my $g_user_id = 200;
while (<PWD>) {
   my ($accountname, $accountid) = (split /:/, $_, 4)[0,2];
   die "This account name already exists!\n" if $accountname eq $username;
   $g_user_id = $accountid + 1 if $accountid > $g_user_id;
}
die "Ack, too many UIDs assigned.\n" if $g_user_id > 65535;