Select Code to Download

    my $file_menu = $mb->Cascade(
        -label      => q{~File},
...
        -borderwidth => 1,
        -activeborderwidth => 1,
    );

    #say qq{\$file_menu: $file_menu};
    #my @file_opts = $file_menu->configure();
...
    #foreach my $key (keys %file_menu_menu) {
    #    say join q{ : }, $key, $file_menu_menu{$key};
    #}