sub mainMenu {
    my ($choice,$notice);
    while (1) {
        system("clear");
        $choice=displayMenu("main",$notice);
        if ($choice =~ /a/i) {
            accountMenu();
            last;
        }
        elsif ($choice =~ /s/i) {
            serverMenu();
            last;
        }
        elsif ($choice =~ /m/i) {
            miscMenu();
            last;
        }
        else {
            $notice="INVALID OPTION!";
            next;
        }
    }
}

##</code><code>##

sub accountMenu {
    my ($notice,$choice);
    while (1) {
        $choice=displayMenu("accountMenu",$notice)
        if ($choice == 1) {
            changePassword();
            last;
        }
        elsif ($choice == 2) {
            addAccount();
            last;
        }
        else {
            $notice="INVALID OPTION";
        }
    }
}

##</code><code>##

sub addAccount {
    while (1) {
        displayMenu("add");
        if ($choice == 1) {
            my $tempInFile=getInput("PLEASE ENTER FULL PATH TO INPUT FILE > ");
            my $csv = Text::CSV->new();
            open (CSV, "<$tempInFile") or die "COULD NOT OPEN $tempInFile ($!)\n";
            while (<CSV>) {
                if ($csv->parse($_)) {
                    my @columns = $csv->fields();
                    validateOptions("add","$infile",@columns);
                } else {
                    my $err = $csv->error_input;
                    print "Failed to parse line: $err";
                }
            }
            close CSV;
            last;
        }
        elsif ($choice == 2) {
            manuallyEnterUser("add"," ");
            last;
        }
        elsif ($choice =~ /a/i) {
            accountMenu();    
        }
        elsif ($choice =~ /m/i) {
            mainMenu();
        }
        elsif ($choice =~ /e/i) {
            exit(0);
        }
        else {
            $notice="INVALID OPTION";
            next;
        }
    }
}