如何在Perl TK中获取当前活动菜单项？

我正在用Perl Tk创建一个上下文菜单，并希望绑定上下箭头按下事件以滚动菜单项

如何获取当前活动菜单项

---

我知道，

$menu->activate（index）

将根据

索引

编号激活菜单项，但我不知道如何获取当前激活的索引？

根据的文档，以下功能应可用（未经测试）：

my $index = $menu->index('active');