sub buildCommand {
    my ($user,$uid,$group,$home,$create,$shell)=@_;
    my $flag;

    while (1) {
       print qq {
1. User:        $user
2. UID:         $uid
3. Group:       $group
4. Home Dir:    $home
5. Comment:     $comment
6. Shell:       $shell

D. Done
};

       print "Please Choose An Option From Above: "
       chomp(my $ans=<STDIN>);

       if ($ans == 1) {
          $user = getInput("Enter Username: ");
       }
       elsif ($ans == 2) {
          $uid = getInput("Enter UID: ");
       }
       elsif ($ans == 3) {
          $group = getInput("Enter Group: ");
       }
       elsif ($ans == 4) {
          $home = getInput("Enter Home: ");
       }
       elsif ($ans == 5) {
          $comment = getInput("Enter Comment: ");
       }
       elsif ($ans == 6) {
          $shell = getInput("Enter Shell: ");
       }
       elsif ($ans =~ /d/i && defined($user)) {
          last;
       }
       else {
          print "INVALID OPTION!\n";
       }
    }
    if (defined($user)) {
       $flag = "-user $user";
    }
    if (defined($uid)) {
       $flag = " -uid $uid";
    }
    if (defined($group)) {
       $flag = " -group $group";
    }
    if (defined($home)) {
       $flag = " -home $home";
    }
    if (defined($comment)) {
       $flag .= " -comment $comment";
    }
    if (defined($shell)) {
       $flag .= " -shell $shell";
    }
    return($flag);
}