Select Code to Download

map { $menubar->cascade( -label => '~' . $_->[0], -menuitems => $_->[1
+]) } [ 'Choices', char_string ];

...
        ['command', 'bar', -command => sub { $char_string = "that"} ],
    ]
}

$b->attach( $menu, -state => 'balloon',
    -msg => [
...
        'Do that...',
    ],
);