sub mainMenu {
    my $infile=shift;
    my ($choice,$notice);
    while (1) {
        system("clear");
        print BOLD BLUE <<EOF;
            PLEASE CHOOSE AN OPTION FROM BELOW
            
EOF
        print GREEN <<EOF;
        (A) Account Administration
        -------------------------------
       
EOF
        if ($notice ne "") {
            print RED "\n\n$notice\n\n";
            $notice="";
        }
    
        my $choice=getInput("Please enter your choice > ");
        
        if ($choice =~ /a/i) {
            accountMenu($infile);
            last;
        }
        else {
            $notice="INVALID OPTION!";
            next;
        }
    }
}

sub accountMenu {
    my $infile=shift;
    my ($notice,$choice);
    while (1) {
        system("clear");
        print BOLD BLUE <<EOF;
              PLEASE CHOOSE AN OPTION FROM BELOW
EOF
        print GREEN <<EOF;
        
        (1) Add Account(s).
        -------------------------------------------------
        (M) Back to Main Menu.
EOF
        if ($choice == 1) {
            addAccount($infile);
            last;
        }
        else {
            $notice="INVALID OPTION";
            next;
        }
}