Select Code to Download

sub menu {
    return int(rand(4)+1);
...
        $m->[$choice]->[1]->();
    } while( $choice != 4 );
}

our $current_menu;

...
        $current_menu->[$choice]->[1]->();
    } while( $choice != 4 );
}