sub addAccount {
    my $infile = shift;
    while (1) {
        system("clear");
        print BOLD BLUE <<EOF;
             PLEASE CHOOSE AN OPTION FROM BELOW
EOF
        print RED <<EOF;
    
        (1) Load User File.
        (2) Manually Enter Each User.
        -------------------------------------------------
        (A) Back to Account Administration Menu.
        (M) Back to Main Menu.
        (E) Exit.
EOF
        if ($notice ne "") {
            print RED "\n\n$notice\n\n";
            $notice="";
        }
    
        my $choice=getInput("Please enter your choice > ");
        if ($choice == 1) {
            loadFile();
            last;
        }
        elsif ($choice == 2) {
            manuallyEnterUser();
            last;
        }
        elsif ($choice =~ /a/i) {
            accountMenu();
        }
        elsif ($choice =~ /m/i) {
            mainMenu();
        }
        elsif ($choice =~ /e/i) {
            exit(0);
        }
        else {
            $notice="INVALID OPTION";
            next;
        }
    }
}