如何perl/Tk实现在列表中右键自定义菜单[求助]

如何perl/Tk实现在列表中右键自定义菜单[求助]

如何perl/Tk实现在列表中右键自定义菜单[求助]
好象TCL/TK能实现,不知PER.
好象TCL/TK能实现,不知PERL怎么实现,
就象我们随便一个窗口点右.
就象我们随便一个窗口点右键出现的菜单,
非TOPLEVEL