Select Code to Download

my $wrap = $menu->entrycget(3, '-menu')->entrycget(3, '-menu');
$wrap->invoke(0);

my $wrap = $menu->entrycget(3, '-menu')->entrycget(3, '-menu');
my $word = $wrap->entrycget(0, '-value');  # 'word'
${ $wrap->entrycget(0, '-variable') } = $word;