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