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