Perl/tk高手请帮忙！

我用perl和tk些了一个程式，直接运行是OK的！

然后用perl/tk写了个GUI的菜单界面，可是把上面这个程式绑定在按钮之后就调用不了了（一运行就报错），为什么啊?

什么原因呢?怎样才可以实现调用?请高手指教指教！

把程序贴上来。

把程序贴上来,帮你看看

这样这么请教啊